ІНФОРМАТИКА,ПАСКАЛЬ. дано натуральні число н і дійсні числа а1,а2…ан. Знайти мінімальне та максимальне число

Вопрос школьника по предмету Информатика

ІНФОРМАТИКА,ПАСКАЛЬ.
дано натуральні число н і дійсні числа а1,а2…ан. Знайти мінімальне та максимальне число

Ответ учителя по предмету Информатика

const n=10;

var a:array[1..n] of real;

max,min:real; i:integer;

begin

Randomize;

for i:=1 to n do begin

 a[i]:=10*random;

 write(a[i]:5:1);

 end;

writeln;

max:=a[1]; 

min:=a[1]; 

for i:=2 to n do

 begin

 if a[i]>max then max:=a[i];

 if a[i]<min then min:=a[i];

 end;

writeln(‘max = ‘,max:4:1,’  min = ‘,min:4:1);

end.

Пример:

  3.1  7.4  3.9  2.4  3.1  7.5  1.1  4.1  7.3  9.9

max =  9.9  min =  1.1