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

@katerina-yo-yo · Регистрация: 25.05.2015

Студворк — интернет-сервис помощи студентам

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

@Alexey2014 · 30.06.2015, 19:53

katerina-yo-yo,

Pascal

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.

@katerina-yo-yo 0 / 0 / 0 Регистрация: 25.05.2015 Сообщений: 5
		1
	Дано 20 вещественных чисел. Найти разницу между минимальным и максимальным из них 30.06.2015, 19:34. Показов 2259. Ответов 1 Метки нет (Все метки) Дано 20 вещественных чисел. Найти разницу между минимальным и максимальным из них. 0

Опции темы

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

Решение