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

ssssss22 ssssss22    3   21.05.2019 10:20    3

Ответы
малая555 малая555  15.06.2020 12:09

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.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика