Регистрация
smail212313
20.02.2021 11:42
Информатика
Есть ответ 👍

Что выполняет данный код:

169
182
Посмотреть ответы 1

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

narek2006
narek2006
4,7(17 оценок)
Var a: array[1..10]of integer; b,min,max,i,maxi,mini: integer; begin for i : 1 to 10 do readln(a[i]); max: =a[1]; min: =a[1]; maxi: =1; mini: =1; for i : 1 to 10 do begin if a[i]> max then begin max: =a[i]; maxi: =i; end; if a[i]< min then begin min: =a[i]; mini: =i; end; a[maxi]: =min; a[mini]: =max; for i : 1 to 10 do writeln(a[i]); end.

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