ljrerby

Неомбходимо сделать блок схему для готовой задачи
И еще, если есть у кого сайт или программа, в которой легко делать эти блок-схемы, кидайте названия

Задача

program qq; uses crt;
const N=10; const M=5;
var A: array [1..N,1..M] of integer;
i,j,sd,nes,nigsr,nes1,sd1,ot,ot1:integer;
kach,sroc,s1:real;
Begin clrscr; randomize;
{Формирование массива, ручной ввод}
For i:=1 to N do
For j:=1 to M do begin
write('Введите оценки студента ');
read(a[i,j]); end;
writeln('Массив оценок');
For i:=1 to N do begin
For j:=1 to M do
write(a[i,j]:4);
writeln; end;

{подсчет средней оценки}
sroc:=0; writeln;
for i:=1 to N do begin
for j:=1 to M do
sroc:= sroc + A[i,j]; end;
sroc:= sroc/(n*m); writeln('Средняя оценка = ',sroc); writeln;

{Кол-во студентов, получивших оценку ниже средней}
nigsr:=0;
for i:=1 to N do begin s1:=0;
for j:=1 to M do
S1 := S1 + A[i,j]; s1:=s1/M;
If s1<sroc then nigsr:=nigsr+1; end;

{Подсчет студентов не сдавших экзамен}
nes:=0;
For i:=1 to N do begin nes1:=0;
For j:=1 to M do
If a[i,j]<3 then nes1:=nes1+1;
If nes1<>0 then nes:=nes+1; end;

{Студенты сдавшие на степендию}
sd:=0;
For i:=1 to N do begin sd1:=0;
For j:=1 to M do
If a[i,j]>3 then sd1:=sd1+1;
If sd1=5 then sd:=sd+1;end;

{Поиск и вывод порядковых номеров отличников}
ot:=0;
For i:=1 to N do begin ot1:=0;
For j:=1 to M do
If a[i,j]=5 then ot1:=ot1+1;
If ot1=5 then writeln('Отличник под номером ',i); end;

{Вычисление процента качества }
kach:=0;
kach:=sd/(n)*100;

{вывод результатов}
writeln ;
writeln('Кол-во студентов, получившие отметку ниже средней = ',nigsr); writeln;
writeln('Число студентов, не сдавшие экзамен = ',nes); writeln ;
writeln('Число студентов, сдавших на степендию = ',sd); writeln ;
writeln('Процент качества = ',kach:5:2,'%'); writeln;
readln;
End.