Ответы на вопрос:
// pascalabc.net 3.2, сборка 1417 от 28.03.2017 // внимание! если программа не работает, обновите версию! procedure view(fams: array of string; balls: array[,] of integer); begin for var i: =0 to fams.length-1 do begin write(fams[i],': '); balls.row(i).println end end; begin var n: =readlninteger('количество студентов: '); var m: =readlninteger('количество оценок у студента: '); var afam: =new string[n]; var aball: =new integer[n,m]; for var i: =0 to n-1 do begin afam[i]: =readlnstring('студент '+(i+1)+': '); write('оценки студента: '); for var j: =0 to m-2 do read(aball[i,j]); readln(aball[i,m-1]); end; writeln('*** принятые сведения ***'); view(afam,aball); var s: =aball.rows.select(x-> x.all(y-> y= .where(x-> not x[1]).select(x-> x[0]-1).toarray; var n1: =s.count; if n1> 0 then begin var t: =new string[n1]; var t1: =new integer[n1,m]; for var i: =0 to n1-1 do begin t[i]: =afam[s[i]]; for var j: =0 to m-1 do t1[i,j]: =aball[s[i],j] end; afam: =copy(t); aball: =copy(t1); writeln('*** после удаления отличников ***'); view(afam,aball); end end. пример количество студентов: 5 количество оценок у студента: 3 студент 1: иванов и.и. оценки студента: 5 4 5 студент 2: петров п.п. оценки студента: 5 5 5 студент 3: сидорова т.с. оценки студента: 5 5 5 студент 4: козлова к.к. оценки студента: 4 4 3 студент 5: макаров м.м. оценки студента: 4 5 4 *** принятые сведения *** иванов и.и.: 5 4 5 петров п.п.: 5 5 5 сидорова т.с.: 5 5 5 козлова к.к.: 4 4 3 макаров м.м.: 4 5 4 *** после удаления отличников *** иванов и.и.: 5 4 5 козлова к.к.: 4 4 3 макаров м.м.: 4 5 4
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
kust219.12.2020 09:02
-
aptemacko02.05.2023 10:37
-
alihan2288825.04.2022 05:22
-
dalelodaryn09.01.2021 15:36
-
leonleontiev613.02.2021 17:45
-
katy24722.07.2020 03:20
-
lera64515.07.2022 16:25
-
arsenijakula21.11.2022 08:47
-
Дашка5милашка14.05.2022 23:47
-
german15080112.01.2022 16:26
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.