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

17 октября, 2022 от ilyuha_otvecha

Вопрос пользователя:

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.