Создайте целочисленный массив А[5.3]. Вывести ** экран элементы массива, кратные 5, и их...

Question

Создайте целочисленный массив А[5.3]. Вывести на экран элементы массива, кратные 5, и их индексы

Answer 1

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