Задача 100

program pr100;

{100. Даны две последовательности a1, a2,..., an и b1, b2,..., bn целых чисел.

Среди членов каждой последовательности нет повторяющихся чисел.

Получить все члены последовательности b1,b2,...bn,

которые не входят в последовательность a1,a2,..., an.}

uses

crt;

var

n,m,v,i,j:byte;

t:integer;

fl:boolean;

a,b,c: array [1..100] of integer;

begin

clrscr;

Write('Vvedite kolichestvo chlenov posledovatelnosti a: ');

Read(n);

Writeln('Vvedite posledovatelnost:');

for i:=1 to n do

begin

Write(i,'-i element: ');

Readln(a[i]);

end;

Write('Vvedite kolichestvo chlenov posledovatelnosti b: ');

Read(m);

Writeln('Vvedite posledovatelnost:');

for i:=1 to m do

begin

Write(i,'-i element: ');

Readln(b[i]);

end;

v:=0;

for i:=1 to m do

begin

fl:=true;

for j:=1 to n do

if b[i]=a[j] then

fl:=false;

if fl then

begin

inc(v);

c[v]:=b[i];

end;

end;

if v<>0 then

for i:=1 to v-1 do

for j:= v downto i+1 do

if c[j]<c[j-1] then

begin

t:=c[j];

c[j]:=c[j-1];

c[j-1]:=t;

end;

Writeln('Ishodnye dannye:');

Writeln('Posledovatelnost a:');

for i:=1 to n do

begin

Write(i,'-i element: ');

Writeln(a[i]);

end;

Writeln('Posledovatelnost b:');

for i:=1 to m do

begin

Write(i,'-i element: ');

Writeln(b[i]);

end;

if v<>0 then

begin

Writeln('Poluchennaia posledovatelnost c:');

for i:=1 to v do

begin

Write(i,'-i element: ');

Writeln(c[i]);

end;

end

else

Writeln('takih chisel net');

Readln;

end.

Задача 101

program pr101;

{101. Имеется массив натуральных чисел.

Получить массив записей,

содержащих различные числа исходного массива и их частоту в исходном массиве.}

uses

crt;

type

zap= record

ch: integer;

chast: real;

end;

var

i,n,v,j,t,k:byte;

z: set of integer;

fl:boolean;

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

b: array [1..100] of zap;

begin

clrscr;

Write('Vvedite kolichestvo chlenov massiva: ');

Read(n);

Writeln('Vvedite massiv:');

for i:=1 to n do

begin

Write(i,'-i element: ');

Readln(a[i]);

end;

v:=0;

z:=[];

for i:=1 to n do

begin

fl:=true;

if a[i] in z then

fl:=false;

if fl then

begin

inc(v);

b[v].ch:=a[i];

z:=z+[a[i]];

end;

end;

for i:=1 to v-1 do

for j:= v downto i+1 do

if b[j].ch<b[j-1].ch then

begin

t:=b[j].ch;

b[j].ch:=b[j-1].ch;

b[j-1].ch:=t;

end;

for i:=1 to v do

b[i].chast:=0;

for i:=1 to v do

begin

k:=0;

for j:=1 to n do

if b[i].ch=a[j] then

begin

inc(k);

b[i].chast:=(k/n)*100;

end;

end;

Writeln('Ishodnye dannye: ');

for i:=1 to n do

Writeln(i,'-i element: ',a[i]);

Writeln('Massiv zapisey: ');

for i:=1 to v do

Writeln(i,'-i element: chislo= ',b[i].ch,' chastota= ',b[i].chast:0:3);

Readln;

end.