ПОЖАЛУЙСТА ПОМОГИТЕ НА ПАСКАЛЕ СОСТАВИТЬ ПРОГРАММУ Заполните случайными числами в диапазоне от 1 до 5 два массива: A[1:20] и B[1:20]. Найдите и выведите на экран только те элементы этих массивов, значения которых совпадают. Например, если A[2]=B[2]=4, то на экран надо вывести: Номер: 2 значение: 4 Если совпадений нет, то вывести сообщение об этом.

Вопрос школьника по предмету Информатика

ПОЖАЛУЙСТА ПОМОГИТЕ НА ПАСКАЛЕ СОСТАВИТЬ ПРОГРАММУ
Заполните случайными числами в диапазоне от 1 до 5 два массива: A[1:20] и B[1:20]. Найдите и выведите на экран только те элементы этих массивов, значения которых совпадают. Например, если A[2]=B[2]=4, то на экран надо вывести:
Номер: 2 значение: 4
Если совпадений нет, то вывести сообщение об этом.

Ответ учителя по предмету Информатика

const n=20;

var a,b:array[1..n] of integer;

i,k:integer; 

begin

Randomize;

writeln(‘Массив A:’);

for i:=1 to n do

 begin

 a[i]:=random(5)+1;

 write(a[i]:3);

 end;

writeln;

writeln(‘Массив B:’);

for i:=1 to n do

 begin

 b[i]:=random(5)+1;

 write(b[i]:3);

 end;

writeln;

k:=0;

for i:=1 to n do

 if a[i]=b[i] then 

  begin

  writeln(‘Номер ‘,i,’ значение ‘,a[i]);

  k:=k+1;

  end;

if k=0 then writeln(‘Совпадающих значений нет’);

end.

Пример:

Массив A:

  4  3  5  3  3  4  1  2  1  4  2  1  3  1  3  1  1  5  5  5

Массив B:

  1  4  2  4  1  1  1  3  1  2  3  2  1  1  5  4  4  1  3  2

Номер 7 значение 1

Номер 9 значение 1

Номер 14 значение 1