Проверка блок-схемы Опции

[-Антон-]

Скажите правильно ли составлена блок-схема для следующей задачи:

program p51;
const m=5;
n=4;
var ar: array[1..n,1..m] of integer;
i,j,k:integer;
begin
randomize;
k:=0;
for i:=1 to n do
begin
for j:=1 to m do
begin
ar[i,j]:=random(5);
write(ar[i,j],' ');
end;
writeln;
end;
for i:=1 to n do
if ar[i,1]=ar[i,m] then
inc(k);
writeln(‘количество строк, в которых первый элемент совпадает с последним:’,k);
readln;
end.

[klem4]

Где схема - то ?


ps Программа построения блок-схем

[-Антон-]

Не удаётся прикрепить файл. В каком формате нужно?

[klem4]

bmp, jpeg, rar ...

[-Антон-]

Блок-схема

[klem4]

Зарегистрироваться тебе надо судя по всему ...

[Антон 777]

Зарегистрировался. Вот схема.

[polic]

const m=5;
n=4;
вот это не надо в блоке
k:=0;а где это?
вывод параллелограмом

[polic]

----------
тема пусть звечит так Оператор Условия

[Антон 777]

Меня больше интересует правильность стрелок

[Антон 777]

Так что? Значит стрелки расставлены верно?