Сессия туралы мәлімет берілген.Студенттің аты-жөні,пәннің аты мен әр пәннен алған бағалары.Жалпы балдың кемуі бойынша топ тізімін шығару.

Program prim333

Const n=3;

Type predmet=record; Pred_name:string; Ball:integer;End. Stud=record Fio:string[30]; Sved:array[1..3] of predmet Oball:integer;End; Var a:array[1..n] of stud L,I,j,s:integer; C:stud; Begin Writeln(‘vvod’); For i:=1 to n do With a[i] do Begin Readln(fio);

S:=0; For j:=1 to 3 do Begin Readln(sved[j].pred_name); Readln(sved[j].ball); s:=s+sved[j].ball; End;Oball:=s;End; For i:=1 to n-1 do

For j:=i+1 to n do

If a[i].oball<a[l].oball then begin

C:=a[i]; a[i]:=a[l]; a[l]:=c; End;

For i:=1 to n do

With a[i] do begin Writeln(fio);Writeln(oball); End;End.

6-Вариант

Алдыңғы есептің шарты сақталады.Жалпы максимал балдан 2 балға ғана айырмашылығы бар студенттердің тізімін шығару.

Program ILYA; Const n=3;

Type predmet=record

Pred_name:string[85];

Ball:integer;End;

Stud=recoed

Fio:string[30]; Sved:array[1..3] of predmet;

Oball:integer;End;

Var a:array[1//n] of integer; I,j,L,max,s:integer; Begin

Writeln(‘vvod’);For i:=1 to n do

With a[i] doBegin Readln(fio); s:=0;

For j:=1 to 3 do Begin Readln(sved[j].predname); Readln(sved[j].ball); S:=s+sved[j].ball;

End; Oball:=s; B[i]:=oball; End;

Max:=b[i]; L:=1; For i:=1 to n do

If b[i]>max then Begin Max:=b[1]; L:=1;

For i:=1 to n do If b[i]>max then

Begin Max:=b[i]; L:=I; End;

Writeln(‘max=’,max); For i:=1 to n do

With a[i] do If oball=max-2 then

Begin Writeln(fio); Writeln(oball);

End; End.

8 – Variant

Экспорттық туарлар туралы мәліметтер берілген.Мем. аты,шет елдерге шығарылатын тауар аты,келіп түскен партияның данасы.Берілген экспортталатын тауар бойынша мемлекет атын,экспорттың жалпы көлемін табу.

Program lab_6; Const n=5;

Type Tovar=record

nazv_tovara:string[20];

nazv_strany:string[20];

imp:integer; eks:integer; end;

var a:array[1..n] of Tovar;

I,v:integr; nazv_str:string[20]; Begin

Writeln(‘vvod’); For i:=1 to n do

With a[i] do Begin Readln(nazv_tovara); Readln(nazv_strany); Readln(eks); End;

Writeln(‘vvod nazv_strany’); Readln(nazv_str); V:=0; аor i:=1 to n do

With a[i] do

If pos(nazv_str,nazv_strany)<>0 then

V:=v+eks; Writeln(‘v=’,v);End.

9-Variant

Алдыңғы есептің шарты сақталады.Берілген экспортталатын тауар көлемінің кему бойынша экспортталатын тауар тізімін шығару.

Program Ilya; Const n=5;

Type Tovar=record Nazv_tovara:string;

Nazv_strny:string; Kol:integer;

Shtuk:integer;End;

Var a:array[1..n] of Tovar ;

I,j:integr, c:Tovar; Begin

Readln(nazv_tovara);Readln(nazv_strany);

Readln(kol);Readln(shtuk); End;

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

If a[i].kol<a[j].kol then Begin

C:=a[i];A[i]:=a[j];A[j]:=c; End;

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

Writeln(nazv_tovara);Writeln(nazv_trany);

Writeln(kol);Writeln(shtuk);End;End.

10-variant

Экранға белгілі бір мемлекеттің экспортталынған туар туралы мәлімет берілген.

Program mm;Const n=2; Type struct=record Name:string;Import:integer; And;

Var a:array[1..n] of struct; M:string;I,j,k,b:integer; Begin

For i:=1 to n do Begin

Write(‘’;’-nazvanie strany:’);

Readln(a[i].name);

Write(‘tovary proizvodyashie v drugih stranah:’);

Readln(a[i].exprot); Write(‘nazv_tovara:’); Readln(a[i].exname); Write(‘shtuka privodyashih partiy:’);Readln(a[i].import);

WritelnEnd;

Write(‘vvod strany:’);Readln(m);

For i:=1 to n do If a[i].name=m then

Begin K:=I; End;

Writeln(‘proizvodniy tovar’,a[k].export);

Writeln(‘nazv_tovara:’,a[k].exname);

Writeln(‘shtuka partiy:’,a[k].import) End.

11-variant