Var x:array [1..10] of integer; procedure reachat(a:integer); var i:integer; begin for i:=1 to 10 do write (x[i],' '); end; var i,a:integer; begin read(a); for i:=1 to 10 do x[i]:=random(10); reachat(x[i]); writeln(a); end. НАД...
Var
x:array [1..10] of integer;
procedure reachat(a:integer);
var
i:integer;
begin
for i:=1 to 10 do
write (x[i],' ');
end;
var
i,a:integer;
begin
read(a);
for i:=1 to 10 do
x[i]:=random(10);
reachat(x[i]);
writeln(a);
end.
НАДО ИЗМЕНИТЬ ПРОГРАММУ ТАК, ЧТО БЫ ПРИ ВВОДЕ 4 БЫЛО 1 2 3 4, А ПРИ ВВОДЕ 6 БЫЛО 1 2 3 4 5 6
Гость
Ответ(ы) на вопрос:
Гостьvar
x:array [1..10] of integer;
procedure peachat(a:integer);
var
i:integer;
begin
for i:=1 to a do
write (x[i],' ')
end;
var
i,a:integer;
begin
read(a);
for i:=1 to a do x[i]:=i;
peachat(a)
end.
Тестовое решение:
6
1 2 3 4 5 6
Не нашли ответ?
Похожие вопросы