Паскаль дано натуральные число н и действительные числа а1, а2 ан. найти минимальное и максимальное число

218

305

Посмотреть ответы 2

Ответы на вопрос:

томара80

Информатика

4,4(51 оценок)

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