Предмет: Информатика,
автор: sorokana
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
Ответы
Автор ответа:
0
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
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
Похожие вопросы
Предмет: Другие предметы,
автор: Аноним
Предмет: Математика,
автор: ershat12345
Предмет: Қазақ тiлi,
автор: irzasevaperizat
Предмет: Математика,
автор: sultnurg
Предмет: Математика,
автор: lera5555555555