Вводится число n, а затем n чисел. подсчитайте, сколько среди данных n чисел нулей.

  program z_n; var a: array[1..10000] of integer; n,c,i: integer; begin readln(n); for i: =1 to n do begin readln(a[i]); // вводите числа через enter if a[i]=0 then c: =c+1; end; writeln('среди  введеных  чисел' ,c,'  нулей'); end.

1) program p1; var a,k,n,i,s: longint; begin   k: =0;   n: =1;   s: =0;   for i: =1 to 8 do   begin     read(a);     s: =s+a;     if a> 0     then n: =n*a     else k: =k+1;   end;   writeln('summa: ',s,' proizvedenie: ',n,' kolichestvo: ',k);   readln;   readln end. 2) program p2; var n,i: longint; s: real; begin   write('write n: '); readln(n);   s: =5;   for i: =6 to n do   s: =s+i-0.5+i;   writeln(s: 0: 1);   readln end. 3) program p3; var n,i,s: longint; begin   write('write n: '); readln(n);   s: =2;   for i: =2 to n do   s: =s*i*2;   writeln(s);   readln end.

// pascalabc.net 3.3, сборка 1583 от 25.11.2017 // внимание! если программа не работает, обновите версию! begin   var s: =readlnstring.toupper; // к верхнему регистру   var (ko,ke): =(0,0); // счетчики   for var i: =1 to s.length do       case s[i] of       'о': ko+=1;       'е': ke+=1       end;   if ko> ke then writeln('буква "о" встречается чаще')   else if ko< ke then writeln('буква "е" встречается чаще')   else writeln('буквы "о" и "е" встречаются одинаковое число раз') end. пример если бы ольга захотела, она бы училась лучше елены буква "е" встречается чаще