ПАСКАЛЬ
дано натуральные число н и действительные числа а1, а2 ... ан. Найти минимальное и максимальное число
дано натуральные число н и действительные числа а1, а2 ... ан. Найти минимальное и максимальное число
Copyright © 2025 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
Verified answer
Var n,i:integer; a,max,min:real;begin
write('n = ');
readln(n);
readln(a);
max:=a; min:=a;
for i:=1 to n-1 do
begin
readln(a);
if a>max then max:=a;
if a<min then min:=a;
end;
writeln('max = ',max:4:1,' min = ',min:4:1);
end.
Пример:
n = 5
8.4
2.7
3.0
9.1
4.8
max = 9.1 min = 2.7