Дана последовательность чисел a1, a2,…, an. Указать наименьшую длину числовой оси, содержащую все эти числа.

@BetHell · Регистрация: 19.02.2011

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

Дана последовательность чисел a1, a2,…, an. Указать наименьшую длину числовой оси, содержащую все эти числа.
Помогите пожалуйста!!! Очень надо!

@Sashkmar · 27.04.2011, 16:23

Фрагмент программы:

Pascal

for i:=1 to n do
begin
if a[i]>max then max:=a[i];
if a[i]<min then min:=a[i];
end;
writeln(' äëèíà=',max-min)
end.

@JokeR.BY · 12.05.2011, 17:07

Sashkmar, а откуда берутся max,min? ручками вводятся штоле?

@Sashkmar · 12.05.2011, 17:21

Нет. max:=a[1];
min:=a[1].

@popadiov · 30.05.2011, 17:44

А полностью можно программу?

@Sashkmar · 30.05.2011, 22:32

Pascal

uses crt;
const n=10;
var a:array[1..n] of integer;
i,min,max:integer;
begin
for i:=1 to n do
begin
write('a[',i,']=');
readln(a[i]);
end;
max:=a[1];
min:=a[1];
for i:=1 to n do
begin
if a[i]>max then max:=a[i];
if a[i]<min then min:=a[i];
end;
writeln('длина =',max-min);
readln;
end.

@BetHell 0 / 0 / 0 Регистрация: 19.02.2011 Сообщений: 4
		1
	Дана последовательность чисел a1, a2,…, an. Указать наименьшую длину числовой оси, содержащую все эти числа. 27.04.2011, 15:17. Показов 17968. Ответов 5 Метки нет (Все метки) Дана последовательность чисел a1, a2,…, an. Указать наименьшую длину числовой оси, содержащую все эти числа. Помогите пожалуйста!!! Очень надо! 0

@JokeR.BY CAPITAL OF ROCK! 1281 / 708 / 982 Регистрация: 03.03.2010 Сообщений: 2,286
	12.05.2011, 17:07	3
	Sashkmar, а откуда берутся max,min? ручками вводятся штоле? 0

@Sashkmar 2 / 2 / 0 Регистрация: 27.04.2011 Сообщений: 5
	12.05.2011, 17:21	4
	Нет. max:=a[1]; min:=a[1]. 0

@popadiov 1 / 1 / 0 Регистрация: 11.03.2011 Сообщений: 107
	30.05.2011, 17:44	5
	А полностью можно программу? 0

	30.05.2011, 22:32