Помогите составить задачу....

Тема в разделе "Информатика", создана пользователем 666diabl666, 26 фев 2010.

  1. 666diabl666

    666diabl666 New Member

    Помогите составить задачу. Дан массив целых чисел. Посчитать количество четных элементов вмассиве.
     
    666diabl666, 26 фев 2010
    #1
  2. Skulin88

    Skulin88 New Member

    const n=5;
    var a:array[1..n] of integer;
          k,i:integer;
     begin
      for i:=1 to n do
       readln (a);
      k:=0; 
      for i:=1 to n do
       if a mod 2 = 0 then
        k:=k+1; 
      writeln (k)
    end.
     
    Skulin88, 26 фев 2010
    #2

Поделиться этой страницей

Наша группа