С развитием компьютерной техники появился новый уникальный метод исследования -компьютерный эксперимент.
<span>Эксперименты проводят при испытании новых образцов продукции на предприятиях. Обычно для этого используется специально создаваемая установка, позволяющая провести эксперимент в лабораторных условиях, либо сам реальный продукт подвергается всякого рода испытаниям (натурный эксперимент). Для исследования, к примеру, эксплуатационных свойств какого-либо агрегата или узла его помещают в термостат, замораживают в специальных камерах, испытывают на вибростендах, роняют и т. п. Хорошо, если это новые часы или пылесос — не велика потеря при разрушении</span>
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.
<em><u>Тестовое решение:</u></em>
6
1 2 3 4 5 6