Question

Помогите пожалуйста. Паскаль
program n;
Type matrice = array[1..3,1..2] of integer;
var i,a,j,sum:integer;
begin
for i:= 1 to 3 do begin
readln(a[i,j]);
for j:=1 to 2 do begin
readln(a[i,j]);
If(a[i,j] mod 5=0) then
Sum:=Sum+1;
end;
end;
End.
Ошибка: Нет индексного свойства по умолчанию для типа integer

Answer 1

Ответ:

исправил. код вводит с клавиатуры элементы массива размером 3х2 и считает количество элементов, кратных 5

Объяснение:

program n;

Type matrice = array[1..3, 1..2] of integer;

var  i, j, sum: integer;

    a: matrice;

begin

 for i := 1 to 3 do begin

   for j := 1 to 2 do begin

     readln(a[i, j]);

     If(a[i, j] mod 5 = 0) then

       Sum := Sum + 1;

   end;

 end;

 writeln('Количество элементов матрицы, кратных 5, равно ', sum);

End.