Регистрация
dasyakim
26.04.2022 20:39
Информатика
Есть ответ 👍

ПАСКАЛЬ
В группе 13 учеников выполняли практикум по ИКТ.массив оценок ozenka формируйте случайнвми числами из инетрвала от 0 до 5.выведите на экран номер ученика оценка,например так
Надо:найти и вывести количество учащихся,получивших оценку не ниже 4​
Найти ср.балл по группе

182
425
Посмотреть ответы 2

Ответы на вопрос:

chiigenwjs67
chiigenwjs67
4,5(69 оценок)

var

i,c:integer;

sum:real;

ozenka:array[1..13] of integer;

begin

c:=0;

randomize;

writeln('Ученик | оценка ');

for i:=1 to 13 do begin

ozenka[i]:=random(0,5);

sum:=sum+ozenka[i];

writeln(i,' | ',ozenka[i]);

end;

for i:=1 to 13 do begin

if ozenka[i]>=4 then

c:=c+1;

end;

writeln('Количество учащихся,получивших оценку не ниже 4 = ', c);

sum:=sum / 13;

writeln('Средний балл= ', sum:0:1);

end.

захарчинкозахар
захарчинкозахар
4,6(18 оценок)
Рядом  в текстовом редакторе  на кнопку чтобы появилось диалоговое окно, где можно установить выступ строки  нужно  нажать абзац.

Популярно: Информатика