Question

Дан одномерный массив из целых чисел. Сколько элементов, значения которых равных 0 , и сколько элементов равных 2?

Answer 1

program xxx;

const n=30;

var
   a : array [1..n] of integer;
   i, kn, kd : integer;
begin

   readln(n);

   kn:=0;

   kd:=0;
   for i:=1 to n do
     begin

       write('a[',i,']=');

       readln (a[i]);

       if a[i]=0 then kn:=kn+1;

       if a[i]=2 then kd:=kd+1;
     end;

   for i:=1 to n do
       write(a[i], ' ');

   writeln();
   writeln('Количество чисел равных 0 -',kn);

   writeln('Количество чисел равных 2 -',kd);
   readln();
end.