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.

Answer 2

Для начала, я хотел бы уточнить, что размер массива должен быть целочисленным. В данном случае, вы указали размер массива как 5.3, что не является целым числом. Пожалуйста, уточните размер массива, чтобы я мог продолжить с ответом на ваш вопрос.