СРОЧНО!!!! Дана таблица в которой 10 строк и 8 столбцов в этой таблице записаны числа все...

Question

СРОЧНО!!!!
Дана таблица в которой 10 строк и 8 столбцов в этой таблице записаны числа все числа кратные 5 нужно удвоить остальные утроить

Answer 1

Const
  m=10;
  n=8;
var
  a:array[1..m,1..n] of integer;
  i,j:integer;
begin
  Randomize;
  Writeln('Исходный массив');
  for i:=1 to m do begin
    for j:=1 to n do begin
      a[i,j]:=Random(20)+10;
      Write(a[i,j]:3)
      end;
    Writeln
    end;
  Writeln('Результирующий массив');
  for i:=1 to m do begin
    for j:=1 to n do begin
      if a[i,j] mod 5=0 then a[i,j]:=2*a[i,j]
      else a[i,j]:=3*a[i,j];
      Write(a[i,j]:3)
      end;
    Writeln
    end
end.

Пример решения
Исходный массив
 12 10 12 20 17 17 28 23
 22 27 28 14 23 10 26 15
 29 13 10 29 26 11 17 24
 10 14 17 24 16 12 22 28
 17 25 26 24 25 22 17 23
 18 11 20 12 28 29 25 13
 26 11 28 19 17 27 22 10
 22 17 20 12 10 13 17 19
 14 10 27 28 13 11 20 16
 26 16 21 24 20 15 26 10
Результирующий массив
 36 20 36 40 51 51 84 69
 66 81 84 42 69 20 78 30
 87 39 20 87 78 33 51 72
 20 42 51 72 48 36 66 84
 51 50 78 72 50 66 51 69
 54 33 40 36 84 87 50 39
 78 33 84 57 51 81 66 20
 66 51 40 36 20 39 51 57
 42 20 81 84 39 33 40 48
 78 48 63 72 40 30 78 20