Составить программу на языке Паскаль для решения следующей задачи: Дан одномерный массив. В массиве хранятся оценки по информатике учеников 9 класса. Заполнить массив случайными числами, лежащими в диапазоне от 2 до 5 включительно. Вычислите среднюю оценку в классе по информатике. Входные данные для размерности массива задайте самостоятельно.

pascal

Объяснение:

var a: array of integer;

   n, i, s: integer;

begin

 Write('Введите количество учеников в классе: ');

 ReadLn(n);

 SetLength(a, n);

 WriteLn('Оценки учеников:');

 for i := 0 to n - 1 do

 begin

   a[i] := random(4) + 2;

   Write(a[i], ', ');

   s := s + a[i];

 end;

 WriteLn;

 WriteLn('Средняя оценка в классе: ', s / n:1:2);

end.

ну если исходить из того, что китайская письменность основана на иероглифах, то ближе всего скорее древнеегипетская письменность, которая также основана на иероглифах. думаю так.

uses crt; var n: integer; beginread(n)n: =abs(n)-2; write(n); end.