Дан целочисленный массив из 10 частей. Элементы массива могут принимать целые
Дан целочисленный массив из 10 частей. Элементы массива могут принимать целые значения от 0 до 100 - баллы учащихся выпускного класса за итоговый тест по информатике. Опишите на языке паскаль метод, который позволяет отыскать и вывести количество учащихся, чья оценка за тест выше средней оценки в классе. Исходные данные объявлены ниже.const n=10;var a:array [1..n] of integer;i,j:integer;s:real;beginfor i:=1 to n do readln(a[i]);...end.
Задать свой вопрос
program mark;
const n=10;
var a:array [1..n] of integer;
i, j: integer;
s: real;
begin
s:= 0;
for i:= 1 to n do
begin
readln(a[i]);
s:= s + a[i];
end;
j:= 0;
for i:= 1 to n do
begin
if a[i] gt; s / 10 then j:= j + 1;
end;
writeln(Средний бал: , s/10);
writeln(Количество учеников,у которых бал выше среднего: ,j);
end.
-
Вопросы ответы
Статьи
Информатика
Статьи
Русский язык.
Геометрия.
Физика.
Русский язык.
Химия.
Математика.
География.
Литература.
Разные вопросы.
Математика.