Дана последовательность из n вещественных числе найти разность между max и min (Pascal ABC
Дана последовательность из n вещественных числе найти разность между max и min (Pascal ABC)
Ответ(ы) на вопрос:
Гость
Считываем сколько чисел получим(или сами решаем чему равно n), делаем цикл на считывание каждого, ищем в них мин и макс.
VAR N, i:integer;
k, min, max:real;
begin
readln(N);
for i:=1 to N do begin
readln(k);
if i=1 then begin min:=k; max:=k end
else if k<min then min:=k
else if k>max then max:=k;
end;
writeln(min-max);
end.
Не нашли ответ?
Похожие вопросы