Напишите программу, которая в последовательности 9-ти целых чисел определяет разницу наибольшего и наименьшего чесл

Question

Информатика

Раемия

24 декабря, 16:43

Напишите программу, которая в последовательности 9-ти целых чисел определяет разницу наибольшего и наименьшего чесл

+1

Ответы (1)

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

Аккубак · Answer 1

Program primer;

var

n, max, min, i:integer;

begin

for i:=1 to 9 do begin

readln (n) ;

if (i=1) then begin

max:=n;

min:=n;

end;

if (n>max) then max:=n;

if (n
end;

writeln (max-min) ;

end.