Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  15
Language: PASCAL
Code:
Program Ex15_Record;
Uses Crt;
Type
  rec = record
         FirstName:String;
         LastName :String;
         Age      :Byte;
  end;
Var
  Baza: Array[0..100] Of rec;
  I: Integer;
begin
For I:=0 To 4 Do
Begin
  Write('FirstName='); ReadLn(Baza[I].FirstName);
  Write('LastName='); ReadLn(Baza[I].LastName);
  Write('Age='); ReadLn(Baza[I].Age);
End;
WriteLn('FirstName LastName Age');
For I:=0 To 4 Do
  WriteLn(Baza[I].FirstName,' ',Baza[I].LastName,' ',Baza[I].Age);
End.
          
          
          
          
Comments: