снова массивы Опции

[vovka239]

Помогите пожалуйста решить задачу на массивы:
Даны натуральные числа k,m, действительные числа а1,а2...,аk, b1,b2,..,bm. Среди а1..ak нет повторяющихся членов, нет их и среди b1..bm. Найти сумму тех членов последовательности b..bm, которые входят и в последовательность а1..аk.
Вот выкладываю код. вроде бы хоть частично он правильный) Переделал из задачи про одномерный массив...

program Project2;
Var
Mas1 : Array [1..5] Of Integer;
Mas2 : Array [1..5] Of Integer;
ss : Integer;
k : Integer;
m : Integer;
Begin
For k:=1 to 5 do
begin
  writeln('Введите', k,'-ый член последовательности');
  read(Mas1[k]);
end;
For m:=1 to 5 do
begin
  writeln('Введите', m,'-ый член последовательности');
  read(Mas2[m]);
end;
for k:=1 to 5 do
  for m:=1 to 5 do  //неуверен что здесь тоже правильно написано
If Mas1[k]=Mas2[m] then ss:=m+...;//не знаю вообще как это сделать(((
Writeln(ss);
readln;
end.

[Lapp]

Во-первых - почему заложился на k и m равные 5? К тому же употребил эти названия под индексы..
Во-вторых, все в принципе правильно. Прсто нужно к сумме добавлять Mas1[k].
И не забывай про инициализацию ss.

program Project2;
const
  k = 5;
  m= 5;
Var
  Mas1 : Array [1..k] Of Integer;
  Mas2 : Array [1..m] Of Integer;
ss : Integer;
  i,j : Integer;

Begin
  For i:=1 to k do begin
    write('Введите A[',i,']: ');
    readLn(Mas1[i]);
  end;
  For i:=1 to m do begin
    write('Введите B[',i,']: ');
    readLn(Mas2[i]);
  end;
  ss:=0;
  for i:=1 to k do
    for j:=1 to m do
      If Mas1[i]=Mas2[j] then ss:=ss+Mas1[i];
  Writeln('Сумма одинаковых членов последовательности равна ',ss);
  readln;
end.

(не проверял)
Теперь замена m и k на другие значения - секундное дело.