Есть ответ 👍

При поступлении в университет лица, получившие оценку «неудовлетворительно» на первом экзамене, ко второму экзамену (программа Паскаль)

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

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


type zap=array [1..100] of record
name:string[20];
mark:0..5;
end;
var p:zap;
i,N:integer;
c:char;
begin
readln(N); {Количество}
for i:=1 to N do
begin
p[i].name:=' ';
repeat
read(c);
p[i].name:=p[i].name+c;
until c=' ';
read(p[i].mark);
end;
for i:=1 to N do
begin
if pi[i].mark>2 then writeln(p[i].name,' ',p[i].mark)
else continue;
end;
readln;
end.

Э

Объяснение:

Ок

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

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

Популярно: Другие предметы

Caktus Image

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

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

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

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

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

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

Подпишись на наш телеграмм канал

GTP TOP NEWS