Блок-схема! Помогите нарисовать

[tohkaRu]

Задача решена но совершенно не помню как изображаются операторы ввода-вывода, циклы, условия, массивы. помогите пожалуйста.

program z2;
var m,n,k,i,j,max,c: integer;
a: array [1..100,1..100] of integer;
BEGIN
read(n,m,k);
for i:=1 to n do
for j:=1 to m do
read(a[i,j]);
max:=0;
for i:=1 to n do
begin c:=0;
for j:=1 to m do
begin if (a[i,j]=0) then begin c:=c+1;
end
else begin if(c>max) then max:=c;
c:=0;
end;
end;
if(c>max) then max:=c;
end;
if(max>=k) then writeln('Yes') else writeln('No');
END.

[6AZblJlb]

вывод,ввод - параллеограмм
дествие прямоугольник
цкил или оператора "if" ромбик

[tohkaRu]

а для массива разве так же ?
помню какую то фигуру - параллерограм а в нем внутри еще две палочку по краям - это что?

[tohkaRu]

подскажите кто нибудь? или прикрепите файл пожалуйста

[lexus_ilia]

Я бы тебе сделал твое задание, но объясни мне пару моментов в твоей проге, вот зачем ты делаешь проверку

end
else begin if(c>max) then max:=c;

А потом заново её же...

if(c>max) then max:=c;

у тебя второй раз выполняется всегда!

[tohkaRu]

наверное загнался =(
а что с помощью?

[lexus_ilia]

сделайте нормально программу и я вам нарисую блок-схему, не проблема...
З.Ы. и использкуйте тег [CODE] (решёточка в окне ответа)

[павел12]

а если задачу дам напишите блок схему???