Предмет: Информатика,
автор: natashasharova
Даны n чисел. Найдите произведение максимального и минимального из них
Ответы
Автор ответа:
0
uses crt;
var x,i,n,max,min:integer;
begin
readln(n);
read(x);
max:=x; min:=x;
for i:=1 to n-1 do
begin
readln(x);
if min > x then min:=x;
if max < x then max:=x;
end;
writeln(min,' ',max);
end.
Похожие вопросы
Предмет: Қазақ тiлi,
автор: Аноним
Предмет: Русский язык,
автор: snezhanacatcom
Предмет: Қазақ тiлi,
автор: Аноним
Предмет: Математика,
автор: Николаевичи