Регистрация
Mironovа
23.12.2020 04:12
Информатика
Есть ответ 👍

Желательно как можно быстрей.

300
500
Посмотреть ответы 1

Ответы на вопрос:

Irishagogo
Irishagogo
4,6(7 оценок)
Var     i,j: integer;     a: array[1..12,1..10]of integer; begin writeln ('исходная таблица: '); for i: =1 to 12 do   begin   for j: =1 to 10 do     begin     a[i,j]: =50+random(10);     write(a[i,j]: 3);     end;   writeln;   end; writeln; for i: =5 to 12 do   for j: =1 to 10 do     a[i-1,j]: =a[i,j]; for j: =1 to 10 do a[12,j]: =0; writeln ('измененная таблица: '); for i: =1 to 11 do   begin   for j: =1 to 10 do     write(a[i,j]: 3);   writeln;   end; end.

Популярно: Информатика