блок- схема программы, помогите составить пожалуйста по тексту прпограммы блок- схему... Опции

[wiktormad]

помогите составить пожалуйста по тексту программы блок- схему..
Вот программа:

Дан двумерный массив, содержащий MxN элементов. Составьте алгоритм (блок- схему) и паскаль программу решения задачи: определить число положительных, отрицательных и нулевых элементов массива.

program mas;
uses crt;
var
n, m, i, j, null, pol, otr:integer;
x:array[1..100,1..100] of integer;
begin
clrscr;
randomize;
write('Ввести число строк --> '); readln(n);
write('Ввести число столбцов --> '); readln(m);
writeln('Исходная матрица :');
writeln('-----------------------');
for i:=1 to n do begin
for j:=1 to m do begin
x[i,j]:=random(100)-50;
write(x[i,j]:4);
end;
writeln; end;
null:=0; pol:=0; otr:=0;
for i :=1 to m do
for j:= 1 to n do
begin
if (x[ i , j ] = 0) then
null:= null + 1
else
if (x[ i , j ] > 0) then
pol:= pol + 1
else
otr:= otr + 1;
end;
writeln('null= ',null,' pol= ',pol,' otr= ',otr);
writeln('konec');
readln;
end.

Сообщение отредактировано: wiktormad - 13.04.2013 10:53