Program itogpraktik;
Uses Crt;
Type
Uchenik=record
Shkola : integer;
Fam : string[15];
Klass : integer;
end;
Var
i,n,a,j : integer;
Massiv : array[1..100] of Uchenik;
End;
Begin
ClrScr;
writeln('Введите число учеников ');
read(n);
for i:=1 to n do
begin
writeln('Введите через пробел номер школы и фамилию ученика ');
with massiv[i] do
begin
readln(Shkola,Fam);
write('Введите класс ученика ');
read(Klass);
end;
end;
writeln('Ученики 8-ых классов:');
writeln('Школа Фамилия Класс');
writeln('');
for i:=1 to n do
if massiv[i].klass=8
then
with massiv[i] do
writeln(Shkola:6,' ',Fam:15,' ',
klass);
ReadKey;
End.
Uses Crt;
Type
Uchenik=record
Shkola : integer;
Fam : string[15];
Klass : integer;
end;
Var
i,n,a,j : integer;
Massiv : array[1..100] of Uchenik;
End;
Begin
ClrScr;
writeln('Введите число учеников ');
read(n);
for i:=1 to n do
begin
writeln('Введите через пробел номер школы и фамилию ученика ');
with massiv[i] do
begin
readln(Shkola,Fam);
write('Введите класс ученика ');
read(Klass);
end;
end;
writeln('Ученики 8-ых классов:');
writeln('Школа Фамилия Класс');
writeln('');
for i:=1 to n do
if massiv[i].klass=8
then
with massiv[i] do
writeln(Shkola:6,' ',Fam:15,' ',
klass);
ReadKey;
End.