Регистрация
vladakolyrova
14.05.2023 14:41
Информатика
Есть ответ 👍

решить любые из этих заданий.

184
222
Посмотреть ответы 1

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

школа21002100
школа21002100
4,5(75 оценок)
Pascal   const         n = 10;   var       a : array [1..n] of integer;       i : integer;       max,min,ima,imi : integer;   begin for i : = 1 to n do   readln (a[i]);   min : =a[1]; imi : = 1; for i : = 1 to n do   begin     if a[i] > max then     begin       max : = a[i];       //поиск и сохранение       ima : = i;       //max знач и его номер     end;     if a[i] < min then     begin       min : = a[i];     //поиск и сохранение       imi : = i;         //min знач и его номер     end; end; a[imi] : = max; a[ima]: =min;   for i : = 1 to n do   writeln (a[i]); end.

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