Var a:array[1..1000] of integer;
i,n,max,m:integer;
begin
write('n=');readln(n);
for i:=1 to n do read(a[i]);
max:=a[1];m:=1;
for i:=2 to n do if a[i]>max then
begin max:=a[i]; m:=i; end;
a[m]:=a[1];a[1]:=max;
for i:=1 to n do write(a[i],' ');
writeln;
<span>end.
</span>
Запустил программу, выдал ответ 40
1.Какое действие не является этапом моделирования?
1) коллекционирование марок
2. Какие модели учитывают изменение свойств моделируемого объекта от времени: (несколько ответов)
2) подопытные животные
4) заводные игрушки
3.Какая форма отображена графической модели применима для отображения процессов происходящих во времени:
4) график
4. Имитационные модели воспроизводят поведение или работу : (несколько ответов)
1) предприятий торговли
2) погоды на завтрашний день
3) учреждений скорой помощи
4) транспортных систем