Вывести ФИО студента по его номеру

@Artur4uk) · Регистрация: 06.04.2011

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

Ввести номер студента из списка.Вывести его фамилию.

@KaiTheCat · 08.04.2011, 17:44

Pascal

type
   stud = record
      fam: string;
      num: integer;
   end;
var
   a: array[1..100] of stud;
   i,n,k: integer;
begin
   write('введите количество записей: ');
   readln(n);
   for i:=1 to n do
      begin
         write('введите фамилию фамилию: ');
         readln(a[i].fam);
         write('введите номер студента: ');
         readln(a[i].num);
      end;
   write('введите номер нужного студента: ');
   readln(k);
   for i:=1 to n do
      if k=a[i].num then writeln(a[i].fam);
   readln;
end.

@Artur4uk) 0 / 0 / 0 Регистрация: 06.04.2011 Сообщений: 8
		1
	Вывести ФИО студента по его номеру 08.04.2011, 10:33. Показов 2170. Ответов 1 Метки нет (Все метки) Ввести номер студента из списка.Вывести его фамилию. 0

	08.04.2011, 17:44

Вывести ФИО студента по его номеру

Решение