цикл while

@wari195 · Регистрация: 08.04.2010

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

Даны числа n(определяет кол-во членов последовательности) и A1,A2...An.вычислить min(A2,A4...)+max(A1,A3...).помогите плиз.если можете,решите без массивов

@~~pavelr~~ · 22.04.2010, 13:29

Pascal

i:=1;min:=100000;max:=-100000;
repeat
readln(a);
if i mod 2=1 then
   if max>a then max:=a
else
if min<a then min:=a;
i:=i+1;
until i>n;
s:=min+max;
writeln('S=',s);

@Puporev · 22.04.2010, 13:50

лучше так

Pascal

readln(max);
readln(min);
i:=2;
while i<=n do//по условию цикл while
 begin
  .................

@~~pavelr~~ · 22.04.2010, 14:26

Согласен!

@wari195 · 22.04.2010, 17:59 **[ТС]**

Спасибо большое товирищи программисты

@wari195 0 / 0 / 0 Регистрация: 08.04.2010 Сообщений: 36
		1
	цикл while 22.04.2010, 12:35. Показов 503. Ответов 4 Метки нет (Все метки) Даны числа n(определяет кол-во членов последовательности) и A1,A2...An.вычислить min(A2,A4...)+max(A1,A3...).помогите плиз.если можете,решите без массивов 0

@~~pavelr~~ Заблокирован
	22.04.2010, 14:26	4
	Согласен! 0

@wari195 0 / 0 / 0 Регистрация: 08.04.2010 Сообщений: 36
	22.04.2010, 17:59 [ТС]	5
	Спасибо большое товирищи программисты 0