Дан целочисленный массив из 30 частей. Элементы массива могут принимать значения

Дан целочисленный массив из 30 частей. Элементы массива могут принимать значения от 1 до 5 и содержат годовые оценки по информатике учащихся выпускного класса. Опишите на русском языке или на одном из языков программирования метод, который дозволяет подсчитать и вывести средний балл среди хорошистов и отличников (тех, кто получил итоговую отметку 4 или 5). Гарантируется, что в классе есть желая бы один хорошист либо отличник. Начальные данные объявлены так, как показано ниже. Запрещается использовать переменные, не описанные ниже, но разрешается не использовать часть из них. const N=30; var a: array [1..N] of integer; i, x, y: integer; s: real; begin for i:=1 to N do read (a[i]); ... end.

Задать свой вопрос
1 ответ
Program Bal;
Uses CRT;
const N=30;
var
a: array [1..N] of integer;
i, x, y: integer;
s: real;
begin
s:=0; x:=0; y:=0;
Writeln(Введите 30 оценок);
for i:=1 to N do read (a[i]);
for i:=1 to N do
begin
if (a[i]gt;=4) then
begin
S:=S+a[i];
x:=x+1;
end;
end;
S:=S/x;
Writeln(средний балл S=,S:4:2);

Writeln( Press any key.);
ReadKey();
end.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт