Задание:
Двумерные массивы. Сам. Работа Вар.2 С-14
Решение:
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.
Знаете другой ответ?