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

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.