Требуется написать программу для выставления оценки учащемуся за четверть. оценка выставляется как среднее арифметическое из 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.
begin
Print('Оценка:',ArrRandom(10,2,5).Println.Average)
end.
Тестовое решение:
3 3 5 2 3 5 3 2 4 4
Оценка: 3.4
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
А уж что поставит учитель - это его решение)