Блок-схема
сделайте пожалуйсто блок схему по вот этому коду
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:=-10+random(21);
Write(a:4);
end;
writeln();
for i:=1 to 10 do
if a<0 then a:=a*a else
If a>0 then a:=a*a*a;
for i:=1 to 10 do
write(a: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:4);
END.
Пробовал прогой FCEditor но пишет ошибку там где For написан в всех строках с for
[MOD2]У нас дублирование постов запрещено. Дубликат темы удален. Вам (пока устное) предупреждение.
Модератор.[/MOD2]
сделайте пожалуйсто блок схему по вот этому коду
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:=-10+random(21);
Write(a:4);
end;
writeln();
for i:=1 to 10 do
if a<0 then a:=a*a else
If a>0 then a:=a*a*a;
for i:=1 to 10 do
write(a: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:4);
END.
Пробовал прогой FCEditor но пишет ошибку там где For написан в всех строках с for
[MOD2]У нас дублирование постов запрещено. Дубликат темы удален. Вам (пока устное) предупреждение.
Модератор.[/MOD2]