Nучащихся одного класса получили оценку за контрольную работу. сколько учащихся получили "двойку"

Program chik; var n,a,k,i: integer; begin read(n); k: =0; for i: =1 to n do begin read(a); if(a=2)then k: =k+1; end; writeln(k); end.

1) #include < stdio.h> #include < stdlib.h> int sover (int n) {     int sum = 0;     for (int i = 1; i< =n/2; i++)       if (n%i==0) sum+=i;     if (sum==n)       return 1;     else return 0; } int main() {     int n;     printf ("n = ");     scanf ("%d",& n);     if (sover(n)==1)       printf ("sovershennoe");     else printf ("ne sovershennoe");     printf("\n");     system ("pause");     return 0; }2)#include < stdio.h> #include < stdlib.h> int main(){  for (int i = 1; i< =5; i++)  {    for (int j = 1; j< =5-i+1; j++)      printf ("%d ",5+i-1);     printf ("\n");   }  system ("pause");   return 0; }

Pascalabc.net 3.4.0, сборка 1675 от 12.06.2018 внимание! если программа не работает, обновите версию! procedure matrixcreate(m,n: integer; var a: array[,] of integer); begin   a: =matrrandom(m,n,-50,50); end; procedure matrixoutput(a: array[,] of integer); begin   a.println(4) end; begin   var (m,n): =readinteger2('количество строк и столбцов в матрице: ');   var a: array[,] of integer;   matrixcreate(m,n,a);   writeln('*** исходная матрица ***');   matrixoutput(a);   a.transform(t-> t> 0? 1: t);   writeln('*** полученная матрица ***');   matrixoutput(a); end.