Исправьте ошибки
mas1=array[1..10] of integer;
mas2=array[1..20] of integer;
Var
a,b:mas1;
c:mas2;
i:integer;
Begin
randomize;
writeln('Массив A');
for i:=1 to 10 do
begin
a[i]:=random(51);
write(a[i]:5);
end;
writeln('Массив B');
for i:=1 to 10 do
begin
b[i]:=random(151)-70;
write(b[i]:5);
end;
for i:=1 to 20 do
if i mod 2=0 then
c[i]:=b[i div 2]
else
c[i]:=a[i div 2];
writeln('Массив C');
for i:=1 to 20 do
write(c[i]:6)
end.
Перед тем как начать, давай разберемся с тем, что делает этот код. Он создает два массива - a и b, каждый из которых содержит по 10 чисел типа integer. Затем он создает массив c размером в 20 элементов типа integer.
Далее, код заполняет массив a случайными числами от 0 до 50 и выводит их на экран. Затем он заполняет массив b случайными числами от -70 до 80 и также выводит их на экран.
Следующая часть кода заполняет массив c элементами из массивов a и b. Если индекс элемента в массиве c четный, то он берет значение из массива b, а если индекс нечетный, то он берет значение из массива a. И, наконец, он выводит значения массива c на экран.
Теперь, когда мы разобрались с кодом, давай исправим ошибки.
В строке "mas1=array[1..10] of integer;", замени array на array of:
mas1:array [1..10] of integer;
В строке "mas2=array[1..20] of integer;", также замени array на array of:
mas2:array [1..20] of integer;
В строке "Var", переименуй переменные a,b,c,i следующим образом (в качестве примера):
var
arr1, arr2: array [1..10] of integer;
arr3: array [1..20] of integer;
index: integer;
Замени "randomize;" на "randomize;
writeln('Массив A: ');
for index:=1 to 10 do
begin
arr1[index]:=random(51);
write(arr1[index]:5);
end;
writeln('Массив B: ');
for index:=1 to 10 do
begin
arr2[index]:=random(151)-70;
write(arr2[index]:5);
end;
for index:=1 to 20 do
begin
if index mod 2=0 then
arr3[index]:=arr2[index div 2]
else
arr3[index]:=arr1[index div 2];
end;
writeln('Массив C: ');
for index:=1 to 20 do
write(arr3[index]:6);
end.
Теперь код должен работать правильно. Каждый шаг исправления был объяснен, чтобы его легче было понять. Если у тебя возникнут еще вопросы, не стесняйся спрашивать!