Question

Elaborati un program care citeste de la tastatura datele referitoare la n persoane (n< si =50) si afiseaza pe ecran persoanele nascute pe data z.l.a ; va rog in pascal,imi trebuie urgent

Answer 1

Program P4 pagiina 22
type Persoana=record NP:String;
                       ziua 1..31;
                       luna 1..12;
                       anul:integer;
end;
lista persoanelor =array [1..50]of persoana ;
var LP :lista persoane;
i,n,z,l,a:integer;
begin
write('n=');Readln(n);
for i:=1 to n do begin 
writeln('introdu datele persoanelor',i);
write('nume prenume');
readln(LP[i]NP);
write('ziua');
readln(LP[i].ziua);
write('luna');
readln(LP[i].luna);
write('anual');
readln(LP[i].anual);
end;
write('Z=');Readln(Z);
writeln('lista persoanelor nascute in  ziua ',z);
for i:=1 to n  do 
if LP[i].ziua =Z then 
write (LP[i].NP);
si tot asa mai departe ,sper ca team ajutat