Ответы на вопрос:
Var a,b,c: array [1..100,1..100] of integer; as,bs,cs,i,j: integer; begin sb: =1; for i : = 1 to n do for j: = 1 to n do begin if a[i,j]< 0 then sa: =sa+a[i,j]; if b[i,j]> 0 then sb: =sb*b[i,j]; if j=3 then sc: =sc+c[i,j]; end; writeln(sa,sb,sc); end.
Популярно: Информатика
-
alanada116.09.2020 05:32
-
skiba0419.09.2022 06:23
-
камиииии7666666666617.07.2022 19:25
-
Lorosa14.11.2022 07:12
-
Школа22111120.07.2021 23:06
-
SForest11.04.2023 18:40
-
анапияабдыганиева27.06.2021 11:59
-
cehrjdfyflz160310.06.2023 09:47
-
alievaaytan1727.11.2022 03:32
-
korotkovavd200607.01.2023 22:37