Атестация туралы мәлімет берілген.Студент аты-жөні,5 пәннің аты ж/е солардан алған баға.Барлық пәннен атистация алған студенттердің тізімін шығару.

program lab_6

type student=record

subject:array[1..5] of string;

ball:array [1..5] of integer;

fio:string; end;

var stud array [1..10] of student;

I,j,k,n:integer; Begin Write(‘n=’);Readln(n);

Writeln(‘vvod massivov’); for i:=1 to 3 do with stud[i] do begin

write(‘imya I familiya studenta’);read(fio);

for j:=1 to 5 do begin

write(‘naim predmeta’); readln(subject[j]);

write(‘nabrannyi ball’);

readln(ball[j]); end; end;

writeln(‘attestovannye studenty’);

for i:=1 to 3 do begin k:=0;

for j:=1 to 5 do

if stud[i].ball[j]>50 then inc(k);

if k=5 then writeln(stud[i].fio);end; end.

Топтың студенттері туралы мәлімет берілген.ФИО студенттің,туған жылы,туған жері.Студенттердің туған жылдарының кемуі бойынша топ тізімін шығару.

Program Sali; Const n=3;

Type student=record name:string;

birth_place:string; god:integer;

end; var stud:array [1..n] of student;

i,j:integer; c:student;

Begin For i:=1 to n do With stud[i] do

Begin

Readln(name);Readln(birth_place);Readln(god); End;

For i:=1 to n-1 do For j:=i+1 to n do

If stud[i].god>stud[j].god then

Begin c:=stud[i]; Stud[i]:=stud[j]; Stud[j]:=c; End;

Writeln(‘poryadok ubyvaniya’);

For i:=1 to n do With stud[i] do begin

Writeln(name);Writeln(birth_place);Writeln(god); End;End.

Атестация туралы мәлімет берілген.Пәндерден атестация алмаған студенттердің тізімін шығару.

program lab_6

type student=record

subject:array[1..5] of string;

ball:array [1..5] of integer;

fio:string; end;

var stud array [1..3] of student;

i,j,k,n:integer; Begin Clrscr; Write(‘n=’);Readln(n);

Writeln(‘vvod massivov’);

for i:=1 to 3 do with stud[i] do

begin

write(‘imya I familiya studenta’);read(fio);

for j:=1 to 5 do begin

write(‘naim predmeta’);readln(subject[j]);

write(‘nabrannyi ball’);readln(ball[j]); end; end; writeln(‘ne attestovannye studenty’);

for i:=1 to 3 do begin k:=0;

for j:=1 to 5 do

if stud[i].ball[j]<50 theт inc(k); if k=5 then

writeln(stud[i].fio);end; end.

Кітаптар туралы мәліметтер берілген.Фио автор,кітәптің аты,Баспаның аты,шыққан жылы,кітәпханаға келіп түскен жылы.Соңғы 5 жылда мир баспасынан шыққан кітәптардың тізімі.

Program prim222;

Type struct=record;

fio:string;uchebnik:string;naz_iz:integer;

god_iz:integer;god_pos:integer;end.

var a:array[1..20] of struct

I,j,k,f,n:integer;Begin

Write(‘n=’);Readln(n);For i:=1 to n do begin

Write(‘fio avtora’);Readln(a[i].fio);

Write(‘nazvanie izd’);Readln(a[i].naz_iz);

Write(‘god izdatelstva’);Readln(a[i].god_iz);

Write(‘god postupleniya’);Readln(a[i].god_pos);

Writeln;End; For i:=1 to n do

If (a[i].naz_iz=’mir’) then

If a[i].god_pos>2008) then

Writen(a[i].fio, ‘’,a[i].uchebnik,’’,a[i].naz_iz,’’,a[i].god_iz,’’,a[i].god_pos) End.