Написать ** паскале Дана матрица 3 ** 3. Найти количество элементов матрицы кратных 5

Question

Написать на паскале Дана матрица 3 на 3. Найти количество элементов матрицы кратных 5

Answer 1

Program al;
const n=3;
var a:array [1..n,1..n] of integer;
k,i,j:integer;
begin
Writeln('vvedite massiv:');
For i:=1 to n do
begin
  For j:=1 to n do
 begin 
read(a[i,j]); 
 end; 
 Writeln; 
  end;
k:=0;
for i:= 1 to n do
for j:= 1 to n do
if a[i,j] mod 5=0 then inc(k);
writeln('kolicestvo cisel kratnih 5=', k);
readln;
end.

Comments

Странно, по условию матрица 3х3 а в программе n=5 и матрица 5х5

---

Так поправьте, в чем проблема?)))

---

Осталось добавить ; после const n=3