Question

Дан массив 7 на 7 Все эл-ты кратные 4 заменить на ноль. Вывести массив. ПОЖАЛУЙСТА СРОЧНО!!!!!! Pascal

Answer 1

Ответ:

var a:array[1..7,1..7] of integer;

   i,j: integer;

begin

   for i:=1 to 7 do begin

       for j:=1 to 7 do begin

           a[i][j] := random(100);

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

       end;

       writeln();

   end;

   writeln();

   for i:=1 to 7 do begin

       for j:=1 to 7 do begin

           if a[i][j] mod 4 = 0 then a[i][j] := 0;

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

       end;

       writeln();

   end;

end.