По готовой программе составить блок схему

@seregakmw · Регистрация: 22.12.2010

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

Pascal

const
k=10;
var
a:array[1..k] of integer;
i,n,m:integer;
begin
writeln('Введите номер элемента');
readln(n);
writeln('Введите номер элемента замены');
readln(m);
for i:=1 to k do
begin
a[i]:=random(10)-5;
write(a[i]:3);
end;
writeln;
for i:=1 to k do
if i=n then a[i]:=a[m];
for i:=1 to k do
write(a[i]:3);
end.

@Sistemshik · 26.12.2010, 12:43

Вот так

@Sistemshik 0 / 0 / 0 Регистрация: 21.10.2010 Сообщений: 32
	26.12.2010, 12:43	2
	Вот так Миниатюры 0

Опции темы