ІНФОРМАТИКА,ПАСКАЛЬ. дано натуральні число н і дійсні числа а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]
Не нашли ответ?
Похожие вопросы