Question

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

Answer 1

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

Answer 2

// PascalABC.NET 3.2, сборка 1387 от 20.02.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var n:=20;
  var a:=ArrRandom(n,1,5); a.Println;
  var b:=ArrRandom(n,1,5); b.Println;
  var k:=0;
  for var i:=1 to n do
    if a[i-1]=b[i-1] then begin
      Writeln('Номер: ',i,' значение: ',a[i-1]);
      k+=1
      end;
  if k=0 then Writeln('Совпадений нет')
end.

Пример
1 1 1 4 5 5 5 1 5 5 5 2 1 2 1 5 3 5 2 4
4 4 1 1 4 3 5 1 3 2 2 3 1 1 5 3 5 4 3 1
Номер: 3 значение: 1
Номер: 7 значение: 5
Номер: 8 значение: 1
Номер: 13 значение: 1

Answer 3

Конечно, вот пример программы на Pascal, которая выполняет указанную задачу:

pascalCopy code
program ArrayMatching;

const
  N = 20;
  MinValue = 1;
  MaxValue = 5;

var
  A, B: array[1..N] of Integer;
  i: Integer;
  foundMatch: Boolean;

begin
  Randomize; // Инициализация генератора случайных чисел

  // Заполняем массивы случайными числами
  for i := 1 to N do
  begin
    A[i] := Random(MaxValue - MinValue + 1) + MinValue;
    B[i] := Random(MaxValue - MinValue + 1) + MinValue;
  end;

  // Ищем и выводим совпадающие элементы
  foundMatch := False;
  for i := 1 to N do
  begin
    if A[i] = B[i] then
    begin
      writeln('Номер: ', i, ' значение: ', A[i]);
      foundMatch := True;
    end;
  end;

  // Выводим сообщение, если совпадений не найдено
  if not foundMatch then
    writeln('Совпадений не найдено');

  readln; // Чтобы окно консоли не закрылось сразу
end.

Программа создает два массива A и B, заполняет их случайными числами, затем проходит по элементам массивов и выводит информацию о совпадениях. Если совпадений нет, программа выведет сообщение об этом.