Версия для печати темы

Автор: infarkt 4.04.2012 17:11

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

Автор: Artem7 4.04.2012 18:21

1)

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

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

Автор: infarkt 4.04.2012 18:44

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

Автор: Krjuger 4.04.2012 19:10

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 4.04.2012 19:21

Спасибо вам.

Автор: IUnknown 4.04.2012 20:54

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

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