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.
Answers & Comments
Verified answer
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.