Форум программистов [Powered by Invision Power Board]

Код
program Project2;

const
  N = 20; // maximum number of elements

var
  sequence : array [1..N] of integer; // будет хранить последовательность символов
  high : integer;      // хранит номер следующей пустой ячейки в массиве

  s   : string;    // введенная пользователем строка
  tmp : integer;  // временная переменная для сохранения преобразованного числа 
  err : integer;  // код ошибки преобразования

  i : integer;       
  found : integer;   // количество элементов удовлетворяющих условию
  sum : real;    // сумма элементов удовлетворяющих условию
  zeroCount : integer;  // число нулевых элементов

begin
  // вводим числа
  writeln('Vvedite chisla, enter - okonchanie vvoda (no ne bolee ', N, ' chisel):');
  high := 1;

  // до тех пор пока в массиве есть место
  while high <= N do begin
    readln(s);  // читаем строку

    // если пустая, значит ввод чисел окончен
    if s = '' then
      break;

    // пытаемся прелобразовать
    Val(s, tmp, err);
    if err = 0 then begin
      // успешно
      sequence[high] := tmp;
      inc(high);
    end else
      writeln('Bad number, reenter');
  end;

  // выводим то что пользователь ввел
  writeln('Vy vveli:');
  for i := 1 to high-1 do
    write(sequence[i], ' ');
  writeln;

  // обнуляем переменные
  found := 0;
  sum := 0;
  zeroCount := 0;

  // просматриваем каждое введенное число
  for i := 1 to high-1 do
    // если оно положительное и ...
    // (остаток от деления на 10 это последняя цифра числа)
    // (остаток от деления любого числа на 2 показывает четное ли оно, 1 - если нечетное)
    if (sequence[i] > 0) and (sequence[i] mod 10 mod 2 = 1) then begin
      inc(found);  // увеличиваем счетчик найденных
      sum := sum + sequence[i];  // добавляем в сумму
    end else if (sequence[i] = 0) then  // иначе проверим, а не ноль ли это число
      inc(zeroCount); // и если ноль, то увеличим счетчик нулей

  // выводим результат
  writeln('Srednee: ', (sum/found):5:2, ' nulevyh: ', zeroCount);
  readln;
end.