If(vid inK[i]) then

Begin

randomize;

for i:=1 to n do

begin for j:=1 to m do

Begin

a[i,j]:=random(10);

write(a[i,j]:4);

end;

writeln;

end;

for i:=1 to n do

Begin

max:=a[1,1];

end;

for i:=1 to n do

Begin

if not a[i,1] mod 2=0 then

nech:=a[i,1];

end;

for i:=1 to n do

Begin

Ifnech>max then

max:=nech;

end;

for i:=1 to n do

writeln ('max=',max);

end.

Лабораторная работа №3.

var n,k:integer;

begin write('vvedite n'); readln(n);

k:=n div 4;

Casen mod4 of

0: writeln(n,'=4*', k);

1: writeln(n,'=4*',k,'+1');

2: writeln(n,'=4*',k,'+2');

3: writeln(n,'=4*',k,'+3');

end;

end.

Лабораторная работа №11.

uses crt;

var S:string;

k,j,i:integer; mn: set of char;

Begin

clrscr;

writeln ('vvediye stroky');

read (s); k:=0; i:=1;

while i<=length(s) do

Begin

j:=1;

while j<=length(s) do

Begin

if (s[i]=s[j]) and (i<>j) then

delete (s,j,1) else

j:=j+1;

end;

i:=i+1;

end;

writeln ('kol=',length(s));

end.

Лабораторная работа №14.

Uses crt;

Var

a: array [1..100] of string;

n,i,j:integer;

odn: array [1..100] of integer;

Begin

clrscr;

write('Vvedite kolvo uchenikov '); readln(n);

for i:=1 to n do

Begin

write('Vvedite familiyu i initiali uchenika #',i,' ');

readln(a[i]);

end;

for i:=1 to n do

Begin

odn[i]:=0;

for j:=1 to n do

Begin

Ifi<>j then

Begin

if copy(a[i],1,length(a[i])-5)=copy(a[j],1,length(a[j])-5) then

odn[i]:=odn[i]+1;

end;

end;

end;

writeln;

for i:=1 to n do

Begin

write('Familiya: ',a[i]);

write(' odnofamilci:',odn[i]);

writeln;

end;

readln

end.

Лабораторная работа №16.

Program m1w;

uses crt;

Type

Cars=(Ford, Audi, Mars, Opel, Volk, BMW);

CarsSet= set of cars;

Const

CarsStr: array [Ford..BMW] of string[12]=

('Форд', 'Ауди', 'Мерседес', 'Опель', 'Вольксваген', 'БМВ');

Var

i,t,N: integer;

K: array [1..3] of CarsSet;

m1, m2, m3: CarsSet;

vid:cars;

procedure zapoln (var K: CarsSet);

Var

vid: Cars;

Begin

K:=[];

for vid:=Ford to BMW do

Ifrandom(2)>0 then

K:=K+[vid]

end;

procedure Vivod (K: CarsSet);

Var

vid: Cars;

Begin

for vid:=Ford to BMW do

If(vid inK) then

write(carsStr[vid], ' ');

writeln;

end;

Begin

clrscr;

randomize;

writeln;

zapoln(K[1]);

zapoln(K[2]);

zapoln(K[3]);

m1:=K[1];

m2:=K[2]-K[1];

m3:=[];

for vid:=Ford to BMW do

Begin

t:=0;

for i:=1 to 3 do

if(vid inK[i]) then

inc(t);

if t=2 then

m3:=[vid]-K[1]-K[2]-K[3];

end;

writeln('Марки машин, доставленные во все страны');

Vivod(m1);

writeln('Марки машин доставленные в некоторые из стран');

Vivod(m2);

writeln('Марки машин недоставленные ни в одну страну');

Vivod(m3);

readln;

End.

Лабораторная работа №13.

Function Kod(s:string):string;

Var i,d:integer;

Begin

result:=s;

d:=length(result);

For i:=1 to d do begin

if (result[i]>='р') and (result[i]<='я') then result[i]:=chr(ord(s[i])-16)

else if (result[i]>='А') and (result[i]<='п') then result[i]:=chr(ord(s[i])-64)

end;

end;

Type Mas= array [1..10] of array [1..10] of char;

Procedure Vvod(out a:mas);

Var i,j:integer; n,m:integer;

Begin

writeln ('vvedite dlinu proizvolbnoi stroki');

readln (n,m);

For i:=1 to n do

for j:= 1 to m do

Begin

write ('bykva '); readln(A[i,j])

end;

end;

procedure Proverka(var a: mas; s: string);

var i, j,n,m: integer;

h: integer;

sAllLetters: string;

Mozno: boolean;

Begin

sAllLetters:= '';

for i:= 1 to n do

for j:= 1 to m do

sAllLetters:= sAllLetters + a[i,j];

Mozno:= true;

for h:= 1 to length(s) do

Begin

if Pos(s[h], sAllLetters)>0 then Delete(sAllLetters, Pos(s[h], sAllLetters), 1)