program lab15dr;
uses crt;
type student=record
srn:string[15];{фамилия}
yob:integer;{год рождения}
yor:integer;{год поступления}
oc1, oc2, oc3:integer;{оценки}
end;
var stud:array[1..15] of student;
i:integer; x:string[1];
begin
clrscr;
for i:=1 to 3 do begin
writeln (i,')surname:');
read(stud[i].srn);
writeln('Year of birth:');
read(stud[i].yob);
writeln('Year of receipt');
read(stud[i].yor);
writeln('estimation');{оценки}
read(stud[i].oc1,stud[i].oc2, stud[i].oc3);
end;
writeln('enter symbol');
readln;
read(x);
readln;
for i:=1 to 3 do begin
if x=stud[i].srn[1] then writeln ('estimation:', stud[i].oc1,' ', stud[i].oc2,' ', stud[i].oc3)
else
writeln ('no');
end;
readln;
end.
Проблема собственно вот в чем: не показывает фамилию, только оценки. И то криво.
Сообщение отредактировано: drantez -