В 9А классе 28 человек написали контрольную работу поистории. Найти число

В 9А классе 28 человек написали контрольную работу по
истории. Найти число двоек, троек, четверок и пятерок, полученных в
итоге написания работы, а также вывести средний балл посреди
мальчиков и посреди девочек.

Нужна программка в PASCAL.

Задать свой вопрос
1 ответ

var a, b, c,d,e,f,g : integer;

begin

  for var i := 1 to 28 do begin

     readln(a);

     if a = 2 then b := b + 1

     else if a = 3 then c := c + 1

     else if a = 4 then d := d + 1

     else if a = 5 then e := e + 1;

     if i lt;= 14 then f := f + a

     else g := g + a;

  end;

  f := round(f / 14);

  g := round(g / 14);

  writeln('Число двоек : ',b);

  writeln('Число троек : ',c);

  writeln('Число четвёрок : ',d);

  writeln('Число пятёрок : ',e);

  writeln('Число двоек : ',a);

  writeln('Средний балл среди мальчишек : ', f);

  writeln('Средний балл среди девченок :', g);

end.

Андрюша Слипоконь
с учётом что 1-ые 14 оценок - юноши, остальные - девченки
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт