Задача по Pascal c произвольной последовательностью. Тема: циклы.

[Slap]

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

[DIgorevich]

а где наработки? или надо не "помочь", а решить за тебя?

[Slap]

Решать за меня не надо...Подскажите только, пожалуйста, как в паскале задается произвольная последовательность. Можно ли, обойтись без огромного числа переменных?

[DIgorevich]

можно использовать массив переменных

[Slap]

Сообщение от DIgorevich

можно использовать массив переменных

А можно обойтись без массива?

[DIgorevich]

Тогда только куча переменных, да еще и неизвестно, сколько их будет.
А лучше делать сразу проверку и заносить по условию в массив:

Var
  x,i:integer;
  a:array[1..100] of Integer;
begin
  i:=1;
  repeat
   begin
    readln(x);
    if x div 3<>0 then
     a[i]:=x;
     inc(i);
   end
 until x=0;

{НУ А ТУТ УЖЕ ИЩЕШЬ НАИБОЛЬШЕЕ ЗНАЧЕНИЕ ЭЛЕМЕНТОВ МАССИВА}
end.

[Grag]

Причем тут DIV и зачем вообще нужен массив???

Var
  X, Max:integer;
Begin
  Max:=Low(integer);
  repeat
    readln(X);
    if (X mod 3)=0 then
      if X>Max then Max:=X
  until X=0;
  writeln(Max)
End.

[Serge_Bliznykov]

DIgorevich
Коллега, ну зачем тут переменные, массив и прочая, прочая, прочая.. (я уж не говорю, что Вы перепутали div с mod)
Ведь тут же классический подхода, когда из всех предыдущих чисел достаточно хранить ОДНО - максимальное число, делящееся на три.
примерно так:

var 
   isFound : boolean;
   MaxFound : integer;
   k : integer;
begin
   isFound := false;
   repeat 
      WriteLn('Введите очередное число (ноль - окончание): ');
      Readln(k);
      if k<>0 then
        if (k mod 3) = 0 then
           {нашли число, кратное трём}
           if isFound then begin
              if k>MaxFound then MaxFound := k;
           end
           else begin
              MaxFound := k;
              isFound := true
           end;
   until k=0;

   {вывод результата}
   if isFound then Writeln('Максимальное число кратное трём в последовательности было ',MaxFound :1)
   else WriteLn('А не было введено подходящих чисел!');
   Readln;
end.

[DIgorevich]

М-да... действительно, что-то я намудрил...