Поделитесь своими знаниями, ответьте на вопрос:
1. составить собственный тест, подобный тому, какой ѐн на рисунке.2. в ячейку, в которой должен будет выводиться результат, ввести формулу его вычисления сиспользованием логических функций.3. дополнить титульным листом с названием теста и регистраций тестирующего и листомрезультатов.
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.