Question

Пожалуйста решение в Turbo/Free pascal


Массив 3х5 заполнить случайными числами [-10;10]. Заменить числом 555 все числа, у которых сумма индексов чётная.

Answer 1

program a2;

var

 a: array [1..3, 1..5] of integer;

 i, j: integer;

begin

 for i := 1 to 3 do

   for j := 1 to 5 do

     a[i, j] := random(21) - 10;

 for i := 1 to 3 do

 begin

   for j := 1 to 5 do

   begin

     if (i + j) mod 2 = 0 Then

       a[i, j] := 555;

     write(a[i, j], ' ');

   end;

   writeln;      

 end;

end.