Регистрация
натуся103
24.06.2022 04:41
Информатика
Есть ответ 👍

Адам, компьютер, автомат-алгоритм орындаушысы бола ала ма? ​

143
476
Посмотреть ответы 1

Ответы на вопрос:

a6271547
a6271547
4,5(53 оценок)
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; end.

Популярно: Информатика