Нужно составить алгоритмзадача: в последовательности целых положительных чисел определить...

Question

Нужно составить алгоритм
задача: в последовательности целых положительных чисел определить максимальное четное число и его порядковый номер

Answer 1

var
  i, err, buf2: integer;
  buf: string;
  max: array [0..1] of integer;
begin
  writeln('Конец последовательности - пустая строка');
  repeat
    inc(i);
    readln(buf);
    val(buf, buf2, err);
    if (err > 0) then break;
    if ((buf2 > max[1]) and (buf2 mod 2 = 0)) then
    begin
      max[1] := buf2;
      max[0] := i;
    end;
  until false;
  writeln('[', max[0], '] => ', max[1]);
end.

Comments

Спасибо, но мне нужен сам алгоритм.. Я имею виду где есть начало, условие, конец и т.д

---

Алгоритм - постедовательность команд, вот вам алгоритм о_о

---

*последовательность

---

что вы выше написали.. я по ней не умею алгоритм составлять

---

Ок-ок, тогда пример "алгоритма" в студию