Подсчитать количество студентов младше 16 лет, и вывести все данные о них

@tanyadew · Регистрация: 09.03.2011

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

Составить программу для обработки информации о некоторых объектах – студентах какого-то факультета. Каждый объект характеризуется совокупностью признаков.Группа,ФИО,год рождения,пол,оценки по физике,по математике и информатике,стипендия.Подсчитать количество студентов младше 16 лет, и вывести все данные о них.

@Глупыш · 28.11.2011, 22:30

Pascal

type se=record;
grup,fio:string;
data,fiz,mat,inf:integer;
end;
var n,i:integer;a:array[1..100] of se;
begin
read(n);
for i:=1 to n do begin
read(a[i].grup);
read(a[i].fio);
read(a[i].data);
a[i].fiz:=random(6);a[i].mat:=random(6);a[i].inf:=random(6);
end;
for i:=1 to n do
if 2011-a[i].data<=16 then begin
writeln(a[i].grup,' ',a[i].fio,' ',a[i].data);
writeln(a[i].fiz,' ',a[i].mat,' ',a[i].inf);
end;
end.

@tanyadew · 28.11.2011, 22:36 **[ТС]**

Спасибо большое))

@tanyadew 0 / 0 / 0 Регистрация: 09.03.2011 Сообщений: 7
		1
	Подсчитать количество студентов младше 16 лет, и вывести все данные о них 28.11.2011, 22:02. Показов 3538. Ответов 2 Метки нет (Все метки) Составить программу для обработки информации о некоторых объектах – студентах какого-то факультета. Каждый объект характеризуется совокупностью признаков.Группа,ФИО,год рождения,пол,оценки по физике,по математике и информатике,стипендия.Подсчитать количество студентов младше 16 лет, и вывести все данные о них. 0

@tanyadew 0 / 0 / 0 Регистрация: 09.03.2011 Сообщений: 7
	28.11.2011, 22:36 [ТС]	3
	Спасибо большое)) 0

Подсчитать количество студентов младше 16 лет, и вывести все данные о них

Решение