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.

Answer 2

Ошибка в данном коде программы возникает из-за того, что в строках `readln(a[i,j]);` и `readln(a[i,j]);` пытаемся прочитать значения элементов массива `a`, которые имеют тип `integer`.

Прежде всего, нужно объявить массив `a` требуемого типа `matrice`, инициализировать переменную `sum` значением `0` и вводить элементы матрицы с помощью циклов:

program n;
type
  matrice = array[1..3, 1..2] of integer;
var
  a: matrice;
  i, j, sum: integer;
begin
  sum := 0;
  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;
end.

Теперь код не должен вызывать ошибку и выполняться корректно. Он считывает элементы матрицы и подсчитывает количество чисел, которые делятся на 5 без остатка в переменную `sum`.