Поставь мне благодарность и пять звёзд)))) и тогда я напишу ответ
Задача сделана на языке паскаль, при помощи
PaskalPlus<span>
Оформление сделана как для студенческой задачи
<span>Если есть вопросы пиши в личку</span></span>
Из 10 сс в 8 сс :
42
60
171
323
515
1)вскипятить воду в чайнике
2)положить в пустую чашку чайный пакутик
3)залить в чашку горячюю воду
4) подождать минуту
5) вытащить пакетик
ГОТОВО !
Var a:array of Integer; n,i,max,ind:Integer;
begin
Readln(n);
SetLength(a,n);
for i:=0 to Length(a) do
readln(a[i]);
max:=a[0];
ind:=0;
for i:=0 to Length(a) do
if abs(a[i])>abs(max) then
begin
max:=a[i];
ind:=i;
end;
n:=a[0];
a[0]:=max;
a[ind]:=n;
for i:=0 to Length(a) do
write(a[i]:3);
readln;
<span>end.</span>