ПОМОГИТЕ ПОЖАЛУЙСТА!!! СРОЧНО!!

Заполните случайными числами в диапазоне от 1 до 5 два массива А [1..10] и B [1..10], затем выведите их на экран. Найдите те элементы массивов, которые попарно совпадают (например, А[2] и В[2]) и выведите сведения о них. Если совпадений нет – следует проинформировать об этом пользователя.

1

Ответы и объяснения

2013-05-20T13:45:36+00:00

 var i,j:integer;
 c:array[1..10] of integer;
 b:array[1..10] of integer;
 begin
 randomize; cls;
  for i:=1 to 10 do
  begin
  c[i]:=random(7)+1;
  b[i]:=random(7)+1;
  end;
  for i:=1 to 10 do

  write(c[i],' ');
    writeln;
   for i:=1 to 10 do

   write(b[i],' ');
    writeln;
   for i:=1 to 10 do
   begin
    if (c[i]=b[i]) then
    write(c[i], ' povtor ');
   end;
 
 end.