Question

Составить программу на языке Паскаль для решения следующей задачи:



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

​

Answer 1

program massive;
var x:array [1..19] of integer;
i,s:integer;
begin
randomize;
s:=0
for i=1 to 19 do
begin
x[i]:random(4)+2;
write(x[i],’ ’);
s:=s+x[i]
end;
writeln;
write(s/19:5:3)
end.