Задание 5 Вариант 1 Самостоятельная работа 5 ГДЗ Рабочая тетрадь Босова 11 класс (Информатика)

Ниже вариант решения задания из учебника Босова, Босова, Аквилянов 11 класс, Бином:

5. Напишите программу. В классе 20 учеников. В журнале выставлены их итоговые оценки по информатике за первую четверть. Определите средний бал по предмету и процент успеваемости.

program s5_v1_5;

const

n = 20;

var

a: array[1..n] of integer;

i, s5, s4, s3, s, k5, k4, k3: integer;

sr, pr: real;

begin

writeln(taskВвод массиваtask);

randomize;

for i := 1 to n do

begin

a[i] := random(5) + 1;

write(a[i], task task)

end;

s := 0; s5 := 0; s4 := 0; s3 := 0;

for i := 1 to n do

begin

s := s + a[i];

case a[i] of

5: begin s5 := s5 + a[i]; k5 := k5 + 1 end;

4: begin s4 := s4 + a[i]; k4 := k4 + 1 end;

3: begin s3 := s3 + a[i]; k3 := k3 + 1 end;

end;

end;

writeln;

sr := s / n; pr := 100 * (k5 + k4 + k3) / n;

writeln(taskСредний балл=task, sr:2:2, task Процент успеваемости=task, pr:2:2, task%task)

end.

Результат: средний бал – 3.60, процент успеваемости – 80.00%