Помогите,очень прошу!!!

0 голосов
22 просмотров

Помогите,очень прошу!!!


image

Информатика (26 баллов) | 22 просмотров
0

На pascalABC пойдет?

Дан 1 ответ
0 голосов
Задача №1 (( остальные по аналогии сделай ))
const n=3;var a:array[1..n,1..n] of integer; {Ввод массива N на N}    i, j, sum: integer; {Ввод переменных}begin  sum := 0;  begin  for i:= 1 to n do     for j:= 1 to n do    read(a[i,j])    end;    for i:= 1 to n do begin      for j:= 1 to n do            if a[i,j] > 0 then            sum:=sum + a[i,j]    end;    write('сумма = ', sum);end.
       
(84 баллов)