Требуется написать программу для выставления оценки учащемуся за четверть. Оценка выставляется как среднее арифметическое из 10 полученных оценок. Каждая оценка - случайное число из промежутка от 2 до 5. Использовать массив из 10 целых чисел.

Приятно писать программы длиной в одну строчку)))

Будем надеяться, что так будем писать код (ну через некоторое время)

//PascalABC.NET (версия 3.1, сборка 1210 от 29.03.2016)const n = 10;var a:array[1..n] of integer;i,k,s:integer;begin  for i:=1 to 10 do begin    a[i]:=random(2,5); s:=s+a[i];    write(a[i]:4);  end;  writeln;  writeln('Среднее арифметическое оценок = ',s/n:0:1);end.Тестовое решение:   5   2   5   2   3   4   5   4   3   5Среднее арифметическое оценок = 3.8А уж что поставит учитель - это его решение)