Даны n чисел. Найдите произведение максимального и минимального из них

Question

Информатика

Нюша

6 января, 23:00

Даны n чисел. Найдите произведение максимального и минимального из них

+4

Ответы (1)

Знаете ответ?

Алеша · Answer 1

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.