Паскаль. Число перед максимальным.

[Raudi_s]

А такое можете сделать и плз в кратце объяснить как переводяться операторы,и как впринципе работают?

2,Дан набор вещественных чисел,завершающихся нулем (в общем случае не менее 3 и не более 10000 чисел).Не используя массива,определить:
г)значение числа,предшествующего максимальному (если максимально число первое в наборе,то результат-ноль)

Зарание благодарю...

[Utkin]

Такое сделать могу и даже развернуто объяснить что и как работает. И даже без использования массива, что дальше? Где наработки, где свои идеи? Если хотите все с нуля чтобы Вам приготовили, то обратитесь в раздел Фриланс, там Вам быстро помогут (за деньги).

[Stilet]

Не используя массива,определить:
г)значение числа,предшествующего максимальному

Ну вот в цикле вводишь числа, пока очередное из них не ноль.
проверяешь если очередное число больше максимума, то запоминаешь его и то которое было введено перед ним как максимум.

[ОДИНОЧЕСТВО В СЕТИ]

да что вы пристали к человеку? нужна ему эта ваша... как ее там... о "Программирование"! зачем нам понимать -как и что делается- лишь бы сдать и оценку получить и вообще может он болел когда тему циклы обьясняли! на ,мальчик,и иди , и вообще забудь это страшное слово- "Программирование" ,а то еще ночью приснится и никто уже не спасет!

var
  a:real;
  max:Real;
  pred:Real;
  p:Real;
begin
 a:=1;
 max:=-1000000;
 p:=0;
 pred:=0;
while a<>0 do  begin
  Readln(a);
  if a > max then begin
    max:=a ; pred:=p;
  end;
  p:=a;
end;
Writeln(pred:6:2);
Readln;
end.

p.s Вышесказанное не принимать за чистую монету- это сарказм!!!

[Stilet]

а то еще ночью приснится и никто уже не спасет!

Да ладно... А вдруг толк то получится...

[Raudi_s]

Спосибо большое!
можешь плииииз обьяснить что это if a > max then*(точнее перевести и обьяснить своими словами)
это типа если а больше макс то начать(Begin) так?

[ОДИНОЧЕСТВО В СЕТИ]

А вдруг толк то получится..

.

можешь плииииз обьяснить что это if a > max then*(точнее перевести и обьяснить своими словами)

видимо нет!
ТС почитай про "условные" операторы!

[Raudi_s]

a:=1;Почему тут присвоила 1? Не могу понять(((
max:=-1000000;Тут ясно)
p:=0;А тут почему 0?))
pred:=0;И тут)Это типа предшествующее число а?
и почему
понимаю что наверное нарушаю правила или борзею но хочу понять
P.s Насчет оценки я могу здать и ничего не обьяснять,просто хочу сам научиться!
while a<>0 do begin
Readln(a);
if a > max then begin
max:=a ; pred:=p;
end;
p:=a;почему тут присвоить это?

[Raudi_s]

Все всем спс за помощь!!!!!!!!!!!
Осбенно Одиночество в сети
(можно тему закрывать попробую сам разобраться)