Нужно написать программу позволяющую вводить оценки учеников в массиве. из чего должна состоять: 1) количество учеников в классе 2) на основе запросить оценки каждого ученика 3) должна вывести количество пятерок, четверок, троек и двоек 3) успеваемость в процентах (количество оценок (положительных 3,4,5)/количество учеников умножить на 100 процентов.

//pascal abc.net v3.1 сборка 1172 var   ar: array of integer;   n, k2, k3, k4, k5, i: integer;   r: real; begin   write('сколько учеников? ');   readln(n);   setlength(ar, n);   writeln('введите оценки: ');   for i : = 0 to n - 1 do   begin       readln(ar[i]);       case ar[i] of           2: inc(k2);           3: inc(k3);           4: inc(k4);           5: inc(k5);       else           writeln('не оценка');           exit;       end;   end;   writeln('2: ', k2);   writeln('3: ', k3);   writeln('4: ', k4);   writeln('5: ', k5);   write('успеваемость=', (k3 + k4 + k5) / n * 100: 0: 1); end. пример ввода: сколько учеников? 6 введите оценки: 2 2 3 4 5 5 пример вывода: 2: 2 3: 1 4: 1 5: 2 успеваемость=66.7

Наливаем в 5-литровую ёмкость 5 литров. выливаем эти 5 литров в трехлировую емкость, тогда в пятилитровой емкости остнется 2 литра. выливаем воду из трехлитровой ёмкости. переливаем в неё  2 литра из пятилитровой ёмкости  и наливаем воду в пятилитровую воду. всего 7 литров: 2 литра в трехлитровой  и 5 литров в пятилитровой 5 - литровая      3-литровая 5                          0            1 шаг:   наливаем в пятилитровую, трехлитровая пустая 2                          3            2 шаг:   вылили три литра в трехлитровую, 2 литра осталось в пятилитр. 2                          0          3 шаг  вылили воду из трехлитровой, в пятилитровой остаток 2 литра 0                          2          4 шаг вылили 2 литра из пятилитровой в трехлитровую 5                          2            5 шаг наливаем 5 литров в пятилитровую и 2 литра имеет в трехлитровой         всего 7