М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
Tusovik
Tusovik
12.01.2023 01:35 •  Информатика

Исправьте ошибки
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.

👇
Ответ:
valya27081986
valya27081986
12.01.2023
Привет! Я с удовольствием помогу тебе разобрать этот код и исправить ошибки.

Перед тем как начать, давай разберемся с тем, что делает этот код. Он создает два массива - 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.

Теперь код должен работать правильно. Каждый шаг исправления был объяснен, чтобы его легче было понять. Если у тебя возникнут еще вопросы, не стесняйся спрашивать!
4,4(54 оценок)
Проверить ответ в нейросети
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ