Задача с циклами., Помогите, пожалуйста, решить. Опции

[infarkt]

1) Вывести четные числа из интервала от 50 до 100 в обратном порядке.
2) Организовать ввод чисел до первого нулевого значения. Найти количество максимальных чисел.
Желательно через циклы.

Сообщение отредактировано: infarkt - 4.04.2012 18:42

[Krjuger]

var
 max:integer;
 count:integer;
 a:array [1..100] of integer;
 n:integer;
 i:integer;
begin
 count:=0;
 max:=0;
 n:=0;
  repeat
   inc(n);
   readln(a[n]);
   if a[n]>max then max:=a[n];
 until (a[n]=0);

 for i:=1 to n do
  if a[i]=max then inc(count);
 writeln(count);
 readln;
end.

Вот решение второй,только одно ограничение, размер массива не может первышать 100 элементов.