Valet

сделайте пожалуйсто блок схему по вот этому коду
program dd;
USES crt;
var
k:integer;
a:ARRAY[1..10] of Integer;
i,n:byte;
BEGIN clrscr;
k:=3;
Randomize;
for i:=1 to 10 do
begin
a[i]:=-10+random(21);
Write(a[i]:4);
end;
writeln();
for i:=1 to 10 do
if a[i]<0 then a[i]:=a[i]*a[i] else
If a[i]>0 then a[i]:=a[i]*a[i]*a[i];
for i:=1 to 10 do
write(a[i]:4);
writeln();
for k:=3 to (10-1) do
a[k]:=a[k+1];
a[10]:=0;
for i:=1 to 10 do
write(a[i]:4);
END.


Пробовал прогой FCEditor но пишет ошибку там где For написан в всех строках с for

Замечание:

У нас дублирование постов запрещено. Дубликат темы удален. Вам (пока устное) предупреждение. Модератор.

Valet

ап !!!!

Valet

ап!!!!!!!!!!!!!!!!!!!!!!!!!!!!