Получить двумерный массив случайных чисел в интервале от -10 до 10. распечатать размером 5х5, заменить все четные строчки значением 100. распечатать измененный массив.

235

319

Посмотреть ответы 2

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

Миша1112994

Информатика

4,8(15 оценок)

Var a: array[1..5,1..5] of integer; i,j: integer; begin for i: = 1 to 5 do begin for j: = 1 to 5 do begin a[i,j]: =random(21)-10; write(a[i,j]: 3,' ') end; writeln end; writeln; for i: = 1 to 5 do begin for j: = 1 to 5 do begin if i mod 2 = 0 then a[i,j]: =100; write(a[i,j]: 4,' ') end; writeln end; end.