Вклассе 20 учеников писали диктант по .написать программу подсчета кол-ва 2 3 4 5 получивших за диктант(писать через массива)

var

  a: array [1..20] of 2..5;   //массив оценок учеников

  i: integer;

  n: array [2..5] of 2..5;   //массив счетчиков оценок

begin

  for i: = 2 to 5 do   //обнуляем счетчики оценок

    n[i]: = 0;

  for i: = 1 to 20 do   //вводим оценки учеников и считаем их

  begin

    writeln('введите оценку ', i, '  ученика');

    readln(a[i]);

    if a[i] = 2 then n[2]: = n[2] + 1;

    if a[i] = 3 then n[3]: = n[3] + 1;

    if a[i] = 4 then n[4]: = n[4] + 1;

    if a[i] = 5 then n[5]: = n[5] + 1;

  end;

  for i: = 2 to 5 do

    writeln('количество получивших ', i, ' за диктант равно:   ', n[i]);   {выводим значения счетчиков}

end.

паскаль

откомпилирован: (pascal abc)

program z1; uses crt; var    n: integer;     i: integer; begin      write(' введите n :   ');       readln(n);             for i : = 1 to n do      begin                writeln(' число: ',i,' степень: ', i *i);       end; end.

си

откомпилирован: (dev cpp)

#include < stdio.h> #include < stdlib.h> #include < conio.h> #include < math.h> int main(){  int n = 0;     printf("\n vvedite n:   ");   scanf("%d", & n);   printf("\n chislo | stepen");   for(int i = 1; i < n; i++)  {                printf("\n %5d  |%5d ", i, i * i);   }  getch( );   return 0; }

на каком япе? вот пример решения на паскале abc.

program test;

var s: string;

begin

  read(s);

  write(s);

end.