Всем доброго времени суток))
Завтра сдавать лабу а последнее задание никак не могу сделать...
Нужно составить блок-схему вот этой программы: program spiral;
const
n = 10; m =10;
var
s: array[1..n,1..m] of integer;
i,j,k,p: integer;
begin
i:=0; k:=0; p:=1;
while i<n*m do
begin
inc(k);
for j:=k to m-k+1 do
begin
inc(i);
s[k,j]:=p;
inc(p);
end;
for j:=k+1 to n-k+1 do
begin
inc(i);
s[j,m-k+1]:=p;
inc(p);
end;
for j:=m-k downto k do
begin
inc(i);
s[n-k+1,j]:=p;
inc(p);
end;
for j:=n-k downto k+1 do
begin
inc(i);
s[j,k]:=p;
inc(p);
end
end;
for i:=1 to n do
begin
for j:=1 to m do
write(s[i,j]:4,' ');
writeln;
end;
readln;
end.
Эта программа которая заполняет двумерный массив числами от 1 до 100 по спирали
Люди добрые помогите пожалуйста