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

[infarkt]

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

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

[Artem7]

1)

Program chetnie;
Var n:integer;
Begin
   n:=100;
   While n>=50 do begin
   write(n,' ');
   n:=n-2;
   End;
   readln;
End.

2) Тебе нужно найти кол-во введенных цифр или найти среди введённых наибольшее?

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

[infarkt]

За первую спасибо большое.
Во второй, наверное, "среди введенных максимальное".
Количество введенных я более-менее удачно сделал.

[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 элементов.

[infarkt]

Спасибо вам.

[IUnknown]

1) Вывести четные числа из интервала от 50 до 100 в обратном порядке.

var i : integer;
begin
   for i := 50 downto 25 do
      write(2 * i:3);
end.

Результат - совершенно аналогичен тому, который получается при запуске приведенной выше программы. "А если разницы нет - зачем печатать больше?"