Question

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

Answer 1

const  nmax=100;
var  a,b:array[1..nmax] of integer;
       i,j,n1,n2,s:integer; 
       p:boolean;
begin 
randomize; 
repeat   
write('Размер массива A = ');   
readln(n1); 
until n1 in [1..nmax]; 
writeln; 
writeln('Массив A: '); 
for i:=1 to n1 do   
begin     
a[i]:=random(15);     
write(a[i],' ');   
end; 
writeln; 
writeln; 
repeat   
write('Размер массива B = ');   
readln(n2); 
until n2 in [1..nmax]; 
writeln; 
writeln('Массив B: '); 
for i:=1 to n2 do   
begin     
b[i]:=random(15);     
write(b[i], ' ');   
end; 
s:=0; 
for i:=1 to n1 do   
begin     
p:=false;     
j:=1;     
while (j<=n2) and not p do       
if b[j]=a[i] then p:=true       
else         
inc(j);     
if p then inc(s,a[i]);   
end; 
writeln; 
writeln; 
writeln('Сумма = ',s);
end.