Помогите пожалуйста! с клавиатуры вводятся 10 двузначных чисел. Напечатать те из них, которые делятся нацело на 4, но не делятся на 6. подсчитать их

+ 0 -

Alinka040296

01 авг. 2013 г., 9:00:12 (10 лет назад)

const

  n = 10; //Количество чисел, которое нужно ввести
var
  a: array [1..n] of 10..99; {Массив двузначных чисел, которые вводятся с клавиатуры}
  number, i: integer; //number - количество чисел

begin
  number:= 0; //Обнуляем счетчик
  for i:= 1 to n do //Вводим n двузначных чисел
  begin
    writeln('Введите двузначное число');
    readln(a[i]);
  end;
  write('Числа, которые делятся на 4,но не делятся на 6: ');
  for i:= 1 to n do  {Распечатываем числа, которые делятся на 4, но не делятся на 6}
    if (a[i] mod 4 = 0) and (a[i] mod 6 <>0) then {если число делится на 4 и не делится на 6, прибавляем к счетчику 1}
  begin
    write(a[i], ' ');
    number:= number + 1;
  end;
  writeln;
  writeln('Количество чисел, которые делятся на 4, но не делятся на 6: ', number);
end.