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

@Aleks-s · Регистрация: 02.03.2012

Author24 — интернет-сервис помощи студентам

@versa4e · 16.03.2012, 21:08

Pascal

const
  nmax=100;
type
  Tarr=array[1..nmax] of integer;
var
  a,b:Tarr;
  i,j,n1,n2,s:integer;
  p:boolean;
begin
  randomize;
  repeat
    write('Size of A array=');
    readln(n1);
  until n1 in [1..nmax];
  writeln('Array A');
  for i:=1 to n1 do
    begin
      a[i]:=random(15);
      write(a[i]:4);
    end;
  writeln;
  repeat
    write('Size of B array=');
    readln(n2);
  until n2 in [1..nmax];
  writeln('Array B');
  for i:=1 to n2 do
    begin
      b[i]:=random(15);
      write(b[i]:4);
    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('S=',s);
end.

@Aleks-s 0 / 0 / 0 Регистрация: 02.03.2012 Сообщений: 5
		1
	Составьте программу вычисления суммы тех элементов одномерного массива A(N), что одноврменно встречаются в массиве B(N). 16.03.2012, 20:05. Показов 1077. Ответов 1 Метки нет (Все метки) Составьте программу вычисления суммы тех элементов одномерного массива A(N), что одноврменно встречаются в массиве B(N). 0

	16.03.2012, 21:08

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

Решение