Составить программу. дан массив n*m. определить сумму положительных элементов
101
190
Ответы на вопрос:
Var a: array [1..100,1..100] of longint; i,j,k,n,m: longint; begin readln(n,m); for i: =1 to n do for j: =1 to m do read(a[i.j]); for i: =1 to n do for j: =1 to m do if a[i,j]> 0 then inc(k,a[i,j]); writeln(k); end.
Информация для человека - источник новостей. с информации человек имеет представление о ком - либо или о чем - либо.
Популярно: Информатика
-
annajellycat13.06.2022 00:40
-
leramilver05.08.2020 07:09
-
02vopros0202.03.2021 03:34
-
funfup09.10.2022 13:12
-
svetikkosharna29.10.2020 14:40
-
kk6406.04.2022 08:06
-
coolplayer129.10.2020 11:34
-
seslermarina20002.11.2020 22:29
-
maschavyaznina10.06.2021 13:28
-
Vadym1914.07.2021 01:37