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

Question

Информатика

Иоланта

27 сентября, 21:16

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

+2

Ответы (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.