Дан двухмерный массив 10 ** 10. Найти сумму всех элементов. Кол во элементов коатных 5

Question

Дан двухмерный массив 10 на 10. Найти сумму всех элементов. Кол во элементов коатных 5

Answer 1

Program z;

var
p,s,n,m:integer;
a:array [1..10,1..10] of integer;

begin     
writeln('Введите кол-во столбцов');     
readln(n);     
writeln('Введите кол-во строк');     
readln(m);     
writeln('Ввод матрицы');     
for var i:=1 to n do         
   for var j:=1 to m do             
   begin                 
      write('a[',i,',',j,']=');                 
      readln(a[i,j]);             
   end;     
writeln('Вывод матрицы');     
for var i:=1 to n do         
begin             
    for var j:=1 to m do                 
       write(a[i,j],' ');             
    writeln;         
end;     
s:=0;      
for var i:=1 to n do         
   for var j:=1 to m do           
begin                 
s:=s+a[i,j];           
end;   
p:=0;   
for var i:=1 to n do     
   for var j:=1 to m do       
      if a[i,j] mod 5 = 0   then       
begin             
inc(p);       
end;    
writeln('Сумма элементов - ',s);     
writeln('Кол-во элементов, кpатных 5 - ',p);
end.