Паскаль

[Hallucinogin]

Помогите пожалуйста сделать блок-схему....

Дана матрица произвольных чисел M с 5 строками и 10 столбцами. Начиная с первого столбца, проверить знак произведений элементов каждого столбца и печатать значения произведений до появления первого отрицательного элемента.

program nastya;
uses crt;
var a:= asray […100,…100] of integer;
      b:= asray [1…10000] of integer;
i,j,n,m,k: integer;
y: integer;
begin
clrscr;
randomize;
writeln (`введите количество строк`); readln (n);
writeln (`введите количество столбцов`); readln (n);
y:=1;
for i:= 1 to n do begin
for j:= 1 to m do begin
a [i;j]:= random (46)-1;
write (a[i;j]);
for k:= 1 to m do begin 
if k=j then b[k]:=y*a[i;j];
end;
for k:=1 to m do begin 
         repeat write b [k];
         until b[k]<0;
end;
readln;
end.

[ROMA2PVT]

У вас одни косяки в проге.

program nastya;
uses crt;
var a:array [1..100,1..100] of integer;
b:array [1..100] of integer;
i,j,n,m,k: integer;
pr,kol: integer;
begin
clrscr;
randomize;
write('введите количество строк:=');
readln (n);
write('введите количество столбцов:=');
readln (m);
for i:= 1 to n do
begin
for j:= 1 to m do
begin
a[i,j]:=random(10)-3;
write(a[i,j]:2,' ');
end;
writeln;
end;
writeln;
kol:=0;
for j:=1 to m do
begin
pr:=1;
for i:= 1 to n do
 pr:=pr*a[i,j];
inc(kol);
 b[kol]:=pr;
 if pr>0 then writeln('Произведение элементов ',j,'-го столбца +')
 else if pr<0 then writeln('Произведение элементов ',j,'-го столбца  -')
 else if pr=0 then writeln('Произведение элементов ',j,'-го столбца =0');
end;
writeln;
{распечатываем до перевого отрицательного произведения}
for i:=1 to kol do
begin
if b[i]>=0 then
writeln('Произведение элементов ',i,'-го столбца:=',b[i])
else
break;
end;
readln;
end.

[Hallucinogin]

Спасибо, но мне очень нужна именно блок-схема)))

[ROMA2PVT]

по вашей неверной или по моей верной?

[Hallucinogin]

по вашей верной))

[ROMA2PVT]

После начала блок описания переменных добавь.

[Hallucinogin]

ой, спасибо, что потратили на меня время, просто мне семместровую сегодня сдавать, а я в блок-схемах дуб((