Топ студенттері туралы мәліметтер берілген:аты-жөні,топ аты,студенттің туған жылы.Потоктағы фамилиялары бірдей студенттердің тізімін шығару.
Program
Ilya;Const n=3;
Type
struct=record
Name:string;
Tname:string;
Godrojd:integer;
End;
Var
a:array[1..n] of struct;
Min:string;
I,j,k,b:integer;
Begin
For i:=1 to
n doBegin
Write(I,’fio
studenta:’);Read(a[i].name);
Write(I,’nazv_gruppy:’).
Readln(a[i].tname);
Write(I,’god
rozhdeniya studenta:’);
Readln(a[i].godrojd);Writeln;End;
For i:=1 to
n-1 do
For j:=i+1
to n do
If
a[i].name=a[j].name then
Begin
Writeln(a[i].name,’’,a[i].tname,’’,a[i].godrojd);
Writeln(‘’,a[j].name,’’,a[j].tname’’,a[i].godrojd);
End;End.
