По экзаменационным оценкам учеников вычислить средний балл для класса

@Parkervans · Регистрация: 19.04.2017

Студворк — интернет-сервис помощи студентам

Здравствуйте! Проверьте пожалуйста решение задачи.(процедуры и функции) Задание.
В массиве А записано n целых чисел, соответствующих экзаменационным оценкам учеников и принимающих значение 0 - если учеников и принимающих значение 0-если ученик не сдавал экзамен 2,3,4,5-оценка за экзамен.
Вычислить средний балл учеников класса.
а) среди всего класса (использовать подпрограмму-процедуру)
б) среди всего класса(использовать-функцию)
Результат выполнения программы
введите количество учеников
4
47фамилия 1-го ученика : Петров
Программирование: 4
Математика : 4
Информатика : 4
Средний бал ученика: Петров 4.0
1фамилия 2-го ученика : Дмитриев
Программирование: 4
Математика : 4
Информатика : 4
Средний бал ученика: Дмитриев 4.0
15фамилия 3-го ученика : Киркоров
Программирование: 5
Математика : 5
Информатика : 5
Средний бал ученика: Киркоров 5.0
18фамилия 4-го ученика : Сидоров
Программирование: 4
Математика : 4
Информатика : 4
Средний бал ученика: Сидоров 4.0

Обший средний бал: 4.25

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
Program p;
type
    mas = array[1..30] of integer;
var
    name:string[10];
    arr: mas;
    i: byte;
    avrg: real;
    n:integer;
    sred:real;
    prog,math,inf:byte;
    s:real;
 
procedure klass(var a: mas); 
begin
    for var i:=1 to N do 
    a[i]:=random(50)+1;
end;
 
function ucheniki(a:mas):real;
var sum:integer;
begin
    sum := 0;
    for var i:=1 to N do 
    sum:=sum+a[i];
    ucheniki := sum / n;
end;
 
begin
    writeln('введите количество учеников ');
    readln(n);
    klass(arr);
    for i:=1 to N do begin
    write(arr[i]:4);
     write('фамилия ',i,'-го ученика : '); readln(name);
      write('Программирование: '); readln(prog);
      write('Математика : '); readln(math);
      write('Информатика : '); readln(inf);
      sred:=(prog+math+inf)/3;
      s := s + sred;
      writeln('Средний бал ученика: ' , name,'  ',  sred:3:1);
      end;
    writeln;
  s := s / n;
  writeln('Общий средний балл: ',s);
  end.

@Parkervans · 09.12.2017, 14:58 **[ТС]**

Вычислить средний балл учеников класса: а) среди всего класса (используя процедуру).
б) среди сдававших учеников (использовать функцию).

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Работа со звуком через SDL3_mixer 8Observer8 08.02.2026 Содержание блога Пошагово создадим проект для загрузки звукового файла и воспроизведения звука с помощью библиотеки SDL3_mixer. Звук будет воспроизводиться по клику мышки по холсту на Desktop и по. . .	SDL3 для Web (WebAssembly): Основы отладки веб-приложений на SDL3 по USB и Wi-Fi, запущенных в браузере мобильных устройств 8Observer8 07.02.2026 Содержание блога Браузер Chrome имеет средства для отладки мобильных веб-приложений по USB. В этой пошаговой инструкции ограничимся работой с консолью. Вывод в консоль - это часть процесса. . .	SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .
SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .	SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли 8Observer8 30.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .	SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm 8Observer8 30.01.2026 Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .	SDL3 для Android: Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 29.01.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .

@Parkervans 4 / 4 / 3 Регистрация: 19.04.2017 Сообщений: 66
	09.12.2017, 14:58 [ТС]
	Вычислить средний балл учеников класса: а) среди всего класса (используя процедуру). б) среди сдававших учеников (использовать функцию). 0