Пусть дано 10 вещественных чисел, которые вводятся по одному. Вычисли-те разность между максимальным и минимальным числами. паскаль ABC

Question

Информатика

Люциан

3 февраля, 20:20

Пусть дано 10 вещественных чисел, которые вводятся по одному. Вычисли-те разность между максимальным и минимальным числами. паскаль ABC

+5

Ответы (1)

Знаете ответ на вопрос?

Милена · Answer 1

Var a, min, max:real;

i:integer;

begin

max:=-999999;

min:=999999;

for i:=1 to 10 do begin

read (a) ;

if a>max then max:=a;

if a
end;

writeln (max-min) ;

end.