Вывести на экран фамилии и имена трех худших по среднему баллу учеников - Pascal ABC - Ответ 1517169

@Uinslou · Регистрация: 03.04.2011

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

Pascal

uses crt;
const LIM = 100;
var Info: array[1..LIM] of record
name: string;
sum: integer;
end;
i, k, N, mark, min1, min2, min3: integer;
c: char;
begin
readln(N);
{ ввод исходных данных }
for i:=1 to N do begin
Info[i].name := '';
for k:=1 to 2 do
repeat
read(c);
Info[i].name := Info[i].name + c;
until c = ' ';
Info[i].sum := 0;
for k:=1 to 3 do begin
read(mark);
Info[i].sum := Info[i].sum + mark;
end;
readln;
end;
{ поиск трех минимальных }
min1 := 20; min2 := 20; min3 := 20;
for i:=1 to N do begin
if Info[i].sum <min1 then begin
min3 := min2; min2 := min1;
min1 := Info[i].sum;
end
else if Info[i].sum <min2 then begin
min3 := min2;
min2 := Info[i].sum;
end
else if Info[i].sum <min3 then
min3 := Info[i].sum;
end;
{ вывод результата }
for i:=1 to N do
if Info[i].sum <= min3 then
writeln(Info[i].name);
end.

На вход программе подаются сведения о сдаче экзаменов учениками 9-х классов некоторой средней школы. В первой строке сообщается количество учеников N, которое не меньше 10, но не превосходит 100, каждая из следующих N строк имеет следующий формат:
<Фамилия> <Имя> <оценки>,
где <Фамилия> – строка, состоящая не более чем из 20 символов, <Имя> – строка, состоящая не более чем из 15 символов, <оценки> – через пробел три целых числа, соответствующие оценкам по пятибалльной системе. <Фамилия> и <Имя>, а также <Имя> и <оценки> разделены одним пробелом. Пример входной строки:
Иванов Петр 4 5 3
Требуется написать как можно более эффективную программу , которая будет выводить на экран фамилии и имена трех худших по среднему баллу учеников. Если среди остальных есть ученики, набравшие тот же средний балл, что и один из трех худших, то следует вывести и их фамилии и имена.

Объясните что не так.. Вроде работает.. НО! как я понимаю, ввел строчку "Иванов Петр 4 5 3" Нажал enter и так сколько учеников, а потом оно должно автоматически выдать ответ.. А почему не выдаёт???

Добавлено через 17 часов 7 минут
Ребят, ну так что, есть идеи ?

Вернуться к обсуждению:
Вывести на экран фамилии и имена трех худших по среднему баллу учеников Pascal ABC

Следующий ответ

Другие темы раздела
Pascal ABC Определить, чем является фигура - ромбом или прямоугольником //определение фигуры// var a,b,c : Integer; ReadLn(c); Begin if c=90 then if a=b then Begin WriteLn('Это квадрат'); else WriteLn('Это прямоугольник'); end; https://www.cyberforum.ru/ pascalabc/ thread269556.html	Ввод данных строкой. Pascal ABC Имеется задача: На вход программе подаются сведения о сдаче экзаменов учениками 9-х классов некоторой средней школы. В первой строке сообщается количество учеников N, которое не меньше 10, но не превосходит 100. Каждая из следующих N строк имеет следующий формат: <Фамилия> <Имя> <оценки>, где <Фамилия> – строка, состоящая не более чем из 20 символов, <Имя> – строка, состоящая не более чем из...
Pascal ABC Работа с файлами https://www.cyberforum.ru/ pascalabc/ thread269519.html Создать в редакторе текстовый файл. Программа должна дополнить этот файл, вывести на экран две первых строки, посчитать число символов в третьей строке.	Pascal ABC Составить 2 бок-схемы и 2 программы для нахождения произведения первых 20 чисел https://www.cyberforum.ru/ pascalabc/ thread269443.html помогите пожалуйста решить Составить 2 бок-схемы и 2 программы для нахождения произведения первых 20 чисел
Вычислите значения функции z Pascal ABC помогите пожалуйста! Вычислите значения функции z = (a + b + ci ) / i, если a изменяется от 0 с шагом 1, b изменяется от 5 с шагом 1, ci является элементом массива C(N) . При этом a и b изменяются одновременно с i. заранее спасибо!	Pascal ABC решить процедурой и функцией. https://www.cyberforum.ru/ pascalabc/ thread269305.html Задача. Помогите парни. нужно решить процедурой и функцией. В банк был положен вклад в размере N рублей. Через год он увеличился на 4%, а еще через год - на 6%. Сколько денег на счету будет через 2 года?. (чтоб не думать над формулой: N:=N+(N0,04) это сумма за 1 год, K:=N+(N0,06)сумма за 2 год.) За ответ каждому поставлю +1.
Pascal ABC Построить график функции в указанном сегменте экрана помогите https://www.cyberforum.ru/ pascalabc/ thread269260.html	Нарисовать фигуру (ломаную линию) Pascal ABC помогите
Pascal ABC Работа с векторами https://www.cyberforum.ru/ pascalabc/ thread269239.html Помогите пожалуйста с написанием программы Даны три вектора размерностью n=30 Составить модуль для работы с векторами и вычислить minX(A,A)maxY*(B,B) где A тот из данных трех векторов, минимальный эдемент которого имеет самый большой номер, B,C два других вектора X,minX минимальный элемент вектора Y, maxY максимальный элемент вектора Y	Pascal ABC Даны координаты вершин некоторого пятиугольника. Разбив его на треугольники вычислить его площадь. Вычисление площади треугольника по формуле Герона Помогите пишет неверная операция вещественного плана {Даны координаты вершин некоторого пятиугольника. Разбив его на треугольники вычислить его площадь. Вычисление площади треугольника по формуле Герона, оформить в виде процедуры пользователя} Program z2_v2_l5; Procedure Plos (S:Real; Var S1,S2,S3:Real); Var x1,y1,x2,y2,x3,y3,x4,y4,x5,y5:integer; a,b,c,d,e,f,g,p1,p2,p3:Real; begin https://www.cyberforum.ru/ pascalabc/ thread269236.html
Сформировать одномерный массив C, из повторяющихся элементов массива А и B в одном экземпляре Pascal ABC Помогите пожалуйста! Сформировать одномерный массив C, элементы, которые есть только в массиве А или только в массиве В в одном экземпляре. Элементы в массиве С не должны повторяться. Дополнительный массив не использовать. Написал прогу на си, а на паскале не могу((( #include<stdio.h> #include<stdlib.h> int main() {	Pascal ABC нарисовать политическую карту Африки помогите пожалуйста нарисовать политическую карту Африки на паскале АБС https://www.cyberforum.ru/ pascalabc/ thread269202.html

	04.04.2011, 14:12