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

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.

Пиктограмма принтераСохранение, открытие, создание нового документа и так далееНетВыбрать в настройках печати режим "несколько страниц на одном листе"Выделить текст и в настройках печати выбрать режим "печать выделенного"Выбрать в настройках печати печать только четных страницВыбрать в настройках печати печать только нечетных страницВыбрать в настройках печати количество копийСменить ориентацию страницы на альбомную, с специального калькулятора рассчитать очередность печати страниц и вставить её в строку печати страниц.

Целое, целочисленный тип данных (англ. Integer), в информатике — один из и самых рас типов данных в языках программирования. Служит для представления целых чисел.

Множество чисел этого типа представляет собой конечное подмножество бесконечного множества целых чисел, ограниченное максимальным и минимальным значениями.

В программировании различают беззнаковые целые числа и целые числа со знаком. Знак числа обычно кодируется старшим битом машинного слова. Традиционно, если старший бит равен 1, то число считается отрицательным, только, если оно не определено как беззнаковое.

Количество чисел в машинном