20 б измените текст программы примера так, чтобы решалась следующая : есть информация по студентам (фамилия, курс (1-5), 5 оценок за последнюю сессию). вывести через запятую фамилии первокурсников, которые имеют средний , больший или равный 4. program pr2; type student = record {объявление нового типа данных student} lastname: string ; {фамилия студента} bal: array [1..5] of integer; {массив для 5-ти оценок} average: real {средний студента} end; var pupil: array [1..100] of student; {массив pupil (максимум из 100 элементов) типа student} n,i,j,s : integer; {переменные целого типа} begin write ('введите количество студентов: '); readln(n); for i: =1 to n do begin {запрос данных по n студентам} with pupil[i] do begin write ('введите фамилию студента №', i ,': '); {запрос фамилии студента под номером i} readln (lastname); s: =0; {целочисленная переменная для определения суммы студента} for j: = 1 to 5 do begin {цикл для обработки 5-ти оценок каждого студента} write ('введите оценку за экзамен №: ', j, ': ' ); readln (bal [j] ); s : = s+ bal[j]; {суммирование 5-ти оценок студента} end; average: = s/5; {определение среднего значения и запись в переменную average} end; end; writeln; writeln ( 'студенты, имеющие средний больший или равный 4'); for i: =1 to n do begin if pupil[i].average > =4 then {если средний студента > =4} writeln (pupil[i].lastname, ' (средний ', pupil[i].average: 4: 1, ')'); {то вывод на экран фамилии студента и его среднего } end; end

272

432

Посмотреть ответы 2

Ответы на вопрос:

anastassia7890

Информатика

4,6(5 оценок)

1. надо добавить точку в последней строке программы. иначе работать не будет. 2. меняется всего одна строка в программе: program pr2; type student = record {объявление нового типа данных student} lastname: string; {фамилия студента} bal: array [1..5] of integer; {массив для 5-ти оценок} average: real {средний студента} end; var pupil: array [1..100] of student; {массив pupil (максимум из 100 элементов) типа student} n, i, j, s: integer; {переменные целого типа} begin write('введите количество студентов: '); readln(n); for i : = 1 to n do begin{запрос данных по n студентам} with pupil[i] do begin write('введите фамилию студента №', i, ': '); {запрос фамилии студента под номером i} readln(lastname); s : = 0; {целочисленная переменная для определения суммы студента} for j : = 1 to 5 do begin{цикл для обработки 5-ти оценок каждого студента} write('введите оценку за экзамен №: ', j, ': ' ); readln(bal[j] ); s : = s + bal[j]; {суммирование 5-ти оценок студента} end; average : = s / 5; {определение среднего значения и запись в переменную average} end; end; writeln; writeln( 'студенты, имеющие средний больший или равный 4'); for i : = 1 to n do begin if pupil[i].average > = 4 then {если средний студента > =4} write(pupil[i].lastname,', '); end; end.

Варя11011

Информатика

4,4(78 оценок)

В наше время информатика имеет большое значение как в быту так и в учёбе , работе и в иных сферах. Вокруг этой темы крутится множество профессий .В целом информатика это то без чего современного человека представить сложно.Ниужели информатика так сильно влияет на сегодняшнее положение вещей?

Если брать информатику как школьный предмет то мы понимаем что он даёт нам понятия и знание азов в IT-сфере , которые могут перерастать в серёзную , важную и интересную профессию .Без информатики мы не имели бы такого понятия как блогер ,сторис-мейкер , блогер-елюстратор, менеджер блогера...Не могли бы делится своим мнением в сети и в конце концов не было бы и дистанционного обучения.

Вообще м то что я хочу вам донести , а только то что без информатики современный мир теряет перспективы и мы уже не мы .

Реши свою проблему, спроси otvet5GPT

Быстро
Мгновенный ответ на твой вопрос
Точно
Бот обладает знаниями во всех сферах
Бесплатно
Задай вопрос и получи ответ бесплатно

Задай свой вопрос

Популярно: Информатика

Есть вопросы?

Как otvet5GPT работает?

otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
Сколько это стоит?

Проект находиться на стадии тестирования и все услуги бесплатны.
Могу ли я использовать otvet5GPT в школе?

Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
В чем отличия от ChatGPT?

otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.