Не знаю, как решить задачу. Язык pascal. Помогите пожалуйста. - Вопросы по Pascal

Вопрос Не знаю, как решить задачу. Язык pascal. Помогите пожалуйста.

Регистрация
24 Окт 2013
Сообщения
89
Репутация
0
Спасибо
0
Монет
0
Даны итоги успеваемости 24 студентов в виде их среднего балла. Вывести фамилии тех студентов, чей средний балл ниже 3,3.

Я знаю как вводить и выводить данные в матрицу и как ее делать, но я не понимаю, как происходит связь между ячейкой фамилии и ячейкой балл.
Заранее спасибо за помощь!
 
Регистрация
6 Дек 2013
Сообщения
73
Репутация
0
Спасибо
1
Монет
0
Если данные вводятся пользователем, можно воспользоваться следующим кодом: program Tablitsa1; var name,itog:string; ball:real; i:integer; begin for i:= 1 to 24 do begin Readln(name); Readln(ball); if ball < 3.3 then itog := itog + name + Chr(13); end; Writeln(itog); end. если данные принципиально надо записать в массив (хотя в данном случае это неоптимально) используй следующий код: program Tablitsa2; var name:array[1..24] of string; ball:array[1..24] of real; i:integer; begin for i:= 1 to 24 do Readln(name); for i:= 1 to 24 do Readln(ball); for i:= 1 to 24 do if (ball < 3.3) then Writeln(name); end.
 
Регистрация
9 Сен 2013
Сообщения
86
Репутация
0
Спасибо
0
Монет
0
Связь простая, по индексу строки, если таблица организована в виде двух столбцов вида Фамилия - Балл. Тогда в цикле по строкам проверяете значение в столбце "Балл" и, если это значение меньше 3.3 выводите значение из столбца "Фамилия". Все!
 
Сверху Снизу