Дано 20 вещественных чисел. Найти разницу между минимальным и максимальным из них - Pascal ABC

Формулировка задачи:

Дано 20 вещественных чисел. Найти разницу между минимальным и максимальным из них.


textual

Код к задаче: «Дано 20 вещественных чисел. Найти разницу между минимальным и максимальным из них - Pascal ABC»

program  min_max;
{отключим проверку на диапазон}
{$R-}
uses crt;
var a:array[1..20] of real;
i:integer;
min,max,delta:real;
begin
for i:=1 to 20 do
readln(a[i]);
min:=0;
max:=a[1];
for i:=1 to 20 do
begin
if min>a[i] then min:=a[i]
if max<a[i] then max:=a[i];
end;
delta:=max-min;
write('max-min=',delta);
end.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.


СДЕЛАЙТЕ РЕПОСТ

9   голосов, оценка 4.333 из 5

Источник
Похожие ответы