В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
andreweeoneoff
andreweeoneoff
09.03.2020 02:45 •  Информатика

Вклассе 35 человек. последовательно вводятся оценки учеников за контрольную работу. найдите средний и количество пятёрок. pascal с алгоритма for to do

Показать ответ
Ответ:
Adella1207
Adella1207
04.10.2020 15:15
// PascalABC.NET 3.2, сборка 1353 от 27.11.2016
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ReadArrInteger('->',35);
  var s:=0;
  var k:=0;
  for var i:=0 to 34 do begin
    s+=a[i];
    if a[i]=5 then k+=1
    end;
  Writeln('Средний ',s/35:4:2);
  Writeln('Количество пятерок- ',k)
end.

Пример
-> 4 4 2 4 5 2 3 3 4 3 2 3 2 4 4 2 4 2 4 5 2 2 5 4 4 2 4 2 4 5 5 2 3 3 4
Средний 3.34
Количество пятерок- 5
0,0(0 оценок)
Ответ:
mors3
mors3
04.10.2020 15:15
Var
  eval: array[1..35] of byte;
  i, good: integer;
  sr: real;

begin
  good := 0;sr := 0;
  for i := 1 to 35 do
  begin
    write(i, '.) ');readln(eval[i]);
    sr := sr + eval[i];
    if eval[i] = 5 then inc(good);
  end;
  sr := sr / 35;
  writeln('Всего пятерок: ', good);
  writeln('Средний бал: ', sr:0:2);
end.
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота