Требуется написать программу для выставления оценки учащемуся за четверть. Оценка...

Question

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

Answer 1

// PascalABC.NET 3.1, сборка 1218 от 12.04.2016
begin
  Print('Оценка:',ArrRandom(10,2,5).Println.Average)
end.

Тестовое решение:
3 3 5 2 3 5 3 2 4 4
Оценка: 3.4

Comments

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

---

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

Answer 2

//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

А уж что поставит учитель - это его решение)