Нужно написать алгоритм для кода

@SolarWind · Регистрация: 12.12.2017

Author24 — интернет-сервис помощи студентам

Ребята, всем привет! взял код на паскаль отсюда, теперь прошу помочь с алгоритмом (блоксхемы) для этой программы
Прошу прощения если создал тему в неположенном месте
вот сам код

Pascal

Uses crt;
const n=25;
var z:array[1..n] of integer;
    i,j,k:byte;
    x:integer;
begin clrscr;
randomize;
writeln('исходный массив:');
for i:=1 to n do
 begin
  z[i]:=-25+random(51);
  write(z[i]:4);
 end;
writeln;
writeln;
k:=0;
for i:=1 to n do
if z[i] >= 0 then{если положительный}
  begin
    k:=k+1;{считаем}
    x:=z[i];{запоминаем}
    for j:=i downto k+1 do{сдвигаем начало массива-к позиций к этому элементу}
    z[j]:=z[j-1];{на 1}
    z[k]:=x;{на свободное место пишем это число}
  end;
writeln('Перестановка:');
for i:=1 to n do
write(z[i]:4);
readkey
end.

@Puporev · 13.12.2017, 15:04

Вот такая.

@SolarWind · 13.12.2017, 21:22 **[ТС]**

от души! еще с одной блоксхемой поможете, было бы очень круто

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	13.12.2017, 15:04	2
	Вот такая. Миниатюры 0

@SolarWind 0 / 0 / 0 Регистрация: 12.12.2017 Сообщений: 20
	13.12.2017, 21:22 [ТС]	3
	от души! еще с одной блоксхемой поможете, было бы очень круто 0