Написать программу в Pascal ПОЛНОСТЬЮ ВСЮ от program до end. : определить количество...

Question

Написать программу в Pascal ПОЛНОСТЬЮ ВСЮ от program до end. : определить количество положительных элементов в двухмерном массиве 5х4. Если программа будет написана полностью и работать верно поставлю супер решение

Answer 1

Program main;
var
 mas:array[1..5,1..4] of integer;
 sum,j,i:integer;
begin
 sum:=0;
 for j:=1 to 5 do
  for i:=1 to 4 do
   read(mas[j][i]);
 for j:=1 to 5 do
  for i:=1 to 4 do
   if mas[j][i]>0 then
    sum:=sum+1;
 writeln(sum);
end.

Comments

что-то она не выводит результат

---

Я бы помог с блок схемой,но к сожалению не помню как они делаются(

---

аналогично, я потом задание еще размещу надо будет тоже прогу написать, баллов много дам, поможете?

---

Okey ^_^

---

разместил задане