Как найти сумму всех положительных элементов матрицы — Сайт, где вы сможете решить свои вопросы

|
0 / 0 / 0 Регистрация: 21.01.2013 Сообщений: 14 |
|
1 |
Найти сумму всех положительных элементов матрицы21.01.2013, 16:06. Показов 2834. Ответов 1 Найти сумму всех положительных элементов матрицы.
0 |
ZLO1988
35 / 21 / 40
Регистрация: 25.02.2012
Сообщений: 170
21.01.2013, 17:11
2
Сообщение было отмечено Maddy как решение
Решение
Pascal1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33
uses crt var mass: array [1..5,1..5] of integer i,j,sum: integer begin writeln('Заполняем матрицу размерностью 5x5') for i:=1 to 5 do for j:=1 to 5 do begin read(mass[i,j]) end writeln('Печатаем матрицу:') for i:=1 to 5 do begin for j:=1 to 5 do begin write(mass[i,j]) write(' ') end writeln() end sum:=0 for i:=1 to 5 do for j:=1 to 5 do begin if (mass[i,j] >= 0) then begin sum:=sum+mass[i,j] end end write('Сумма положительных элементов матриц = ') writeln(sum) end.
