• Вопрос по информатике:

    Программирование Pascal:
    Массив нужно заполнить вводом с клавиатуры.

    Дан целочисленный массив из 30 элементов. Элементы массива могут принимать целые значения от 0 до 100 – баллы учащихся выпускного класса, полученные на экзамене по информатике. Напишите программу, которая позволяет найти и вывести количество учащихся, чьи баллы на экзамене выше среднего балла по классу.

    • Автор:

      harley5
  • Спасибо большое!

    • Отвечал:

      denisseibnq
    • 0
    помогите умоляю очень прошу вопрос по ссылке или у меня в профиле буду очень благодарен за помощь https://znanija.com/task/32385568

    • Отвечал:

      eliaefo
    • 0

    Ответ:

    Объяснение:

    var

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

    i,s:integer;

    r:real;

    begin

    writeln('Введите оценки учащихся(значения от 0 до 100)');

    s:=0;

    for i:=1 to 30 do

    begin

    readln(a[i]);

    s:=s+a[i];

    end;

    r:=s/30;

    writeln('средний бал=',r:4:2);

    s:=0;

    for i:=1 to 30 do

    if a[i]>r then s:=s+1;

    writeln('Количество учащихся с оценками выше среднего=',s);

    end.

    • Отвечал:

      cloeey2o
    • 0

    Ответов нет, но ты это испарвиш!

Еще 4 ненужных тебе вопроса, но это важно для поиска