|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
19.12.2012, 14:46 | #1 |
Регистрация: 09.12.2012
Сообщений: 6
|
Pascal. Вывести список студентов.
Если не трудно, очень прошу помочь
Составить программу которая обеспечивает ввод исходных данных, обработку и вывод на экран информации. Вывести на экран список студентов, моложе 18 лет. N=5 помогите подправить программу type tstud = record name:string; year:byte; end; const n=5; var stud: array [1..n] of tstud; k:1..n; begin writeln('Введите имена и возраст года') for k:=1 to n do begin write('имя -> '); readln(stud[k].name); write('возраст -> '); readln(stud[k].year); end; writeln; writeln('Лица моложе 18 лет'); for k:=1 to n do if stud[k].year < 18 then writeln(stud[k].name); readln; end; Последний раз редактировалось irchelika; 19.12.2012 в 15:43. |
19.12.2012, 15:38 | #2 |
Made In USSR!
Старожил
Регистрация: 01.09.2010
Сообщений: 3,657
|
Код:
"...В жизни я встречал друзей и врагов.В жизни много всего перевидал.Солнце тело мое жгло, ветер волосы трепал,но я смысла жизни так и не узнал..."
(c) Юрий Клинских aka "Хой" Последний раз редактировалось Mad_Cat; 19.12.2012 в 15:48. |
19.12.2012, 15:45 | #3 |
Регистрация: 09.12.2012
Сообщений: 6
|
Спасибо! ошиблась..
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
работа со строками (Pascal) | Вероника_94 | Помощь студентам | 2 | 25.01.2012 23:39 |
Работа со строками (Pascal) | Volk_xD | Помощь студентам | 8 | 17.12.2010 20:06 |
Pascal. Работа со строками. | lisenog | Помощь студентам | 1 | 16.12.2010 15:56 |
Работа со строками (Pascal) | SmileGirl | Помощь студентам | 4 | 22.10.2010 01:17 |
Работа со строками (Pascal) | RoMaNyIL | Помощь студентам | 2 | 21.05.2009 20:39 |