Задачи на обработку одномерных массивов

[Янка88]

1)составьте программу подсчёта положительных элементов одномерного массива A(N), встречающихся в этом массиве более двух раз


2)Составьте программу упорядочения по убыванию тех положительных
элементов одномерного массива A(N), что не встречаются в массиве B(М)


3) Составьте программу вычисления суммы элементов, встречающихся только в одном из массивов A(N) или В(N)

[Kemperh4]

Первая задача:

Program p1;
var kol,sum,i,j,n,m1:integer;
A:array[1..100] of byte;
B:array[1..100] of byte;
flag:boolean;
begin
write('Введите n: ');
readln(n);

For i:=1 to n do begin
A[i]:=random(10);
end;
writeln;

B[1]:=A[1];
m1:=1;

For i:=2 to n do begin
flag:=False;

For j:=1 to m1 do 
if A[i]=B[j] then
flag:=True;

if flag=False then begin
inc(m1);
B[m1]:=A[i];
end;
end;

For i:=1 to n do begin
write('A[',i,']=',A[i],' ');
end;
writeln;

sum:=0;
For j:=1 to m1 do begin 
kol:=0;
For i:=1 to n do 
if B[j]=A[i] then
inc(kol);
if (B[j]>0) and (kol > 2) then inc(sum);
end;

writeln;
write('Число элементов встречающихся более 2-х раз: ',sum);

end.

[Kemperh4]

Вторая задача

Program p2;
var i,j,n,m,m1:integer;
A:array[1..100] of byte;
B:array[1..100] of byte;
C:array[1..100] of byte;
t:byte;
flag,flag1:boolean;
begin
write('Введите n,m: ');
readln(n,m);

if (n>100) or (m>100) then begin
write('Превышено входное значение!!!');
halt();
end;

For i:=1 to n do 
A[i]:=random(100);
For i:=1 to m do 
B[i]:=random(100);

writeln;

m1:=0;
For i:=1 to n do begin
flag:=False;
flag1:=False;

For j:=1 to m do 
if A[i]=B[j] then
flag:=True;

For j:=1 to m1 do 
if A[i]=C[j] then
flag1:=True;

if (flag1=False) and (flag=False) and (A[i]>0) then begin
inc(m1);
C[m1]:=A[i];
end;
end;


For i:=1 to n do begin
write('A[',i,']=',A[i],' ');
end;
writeln;writeln;

For i:=1 to m do begin
write('B[',i,']=',B[i],' ');
end;
writeln;writeln;

For i:=1 to m1-1 do
For j:=1 to m1-i do
if C[j]<C[j+1] then begin
t:=C[j];
C[j]:=C[j+1];
C[j+1]:=t;
end;


For i:=1 to m1 do begin
write('C[',i,']=',C[i],' ');
end;

end.

[Kemperh4]

Третья задача

Program p3;
var sum,i,j,n,m,m1:integer;
A:array[1..100] of byte;
B:array[1..100] of byte;
C:array[1..100] of byte;
t:byte;
flag,flag1:boolean;
begin
write('Введите n,m: ');
readln(n,m);

if (n>100) or (m>100) then begin
write('Превышено входное значение!!!');
halt();
end;

For i:=1 to n do 
A[i]:=random(10);
For i:=1 to m do 
B[i]:=random(10);

writeln;

m1:=0;
For i:=1 to n do begin
flag:=False;
flag1:=False;

For j:=1 to m do 
if A[i]=B[j] then
flag:=True;

For j:=1 to m1 do 
if A[i]=C[j] then
flag1:=True;

if (flag1=False) and (flag=False) then begin
inc(m1);
C[m1]:=A[i];
end;
end;

For i:=1 to m do begin
flag:=False;
flag1:=False;

For j:=1 to n do 
if B[i]=A[j] then
flag:=True;

For j:=1 to m1 do 
if B[i]=C[j] then
flag1:=True;

if (flag1=False) and (flag=False) then begin
inc(m1);
C[m1]:=B[i];
end;
end;


For i:=1 to n do begin
write('A[',i,']=',A[i],' ');
end;
writeln;writeln;

For i:=1 to m do begin
write('B[',i,']=',B[i],' ');
end;
writeln;writeln;

sum:=0;
For i:=1 to m1 do begin
write('C[',i,']=',C[i],' ');
sum:=sum+C[i];
end;
writeln;writeln;
write('Сумма: ',sum);

end.