Ответы на вопрос:
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.
Популярно: Информатика
-
megadens1025.08.2021 10:35
-
amikayilova26.01.2020 07:44
-
somovalelyЛеля1529.01.2022 16:51
-
DEAFKEV06.11.2020 09:25
-
slayer7514.09.2022 05:44
-
Дeнис030910.01.2021 17:48
-
rudnfc26.03.2023 18:44
-
liza132903.07.2022 17:29
-
werttyu89009.02.2022 17:34
-
Lis25pfi17414.06.2020 11:42