Вывести на экран все пары элементов массива, не имеющих общих делителей

@Владдд · Регистрация: 20.01.2015

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

Дан одномерный массив А неупорядоченных натуральных чисел.Вывести на экран все пары элементов массива, не имеющих общих делителей, или сообщение "Нет таких чисел",если пары отсутствуют. Пары x,y и y,x указывать один раз

@Puporev · 20.09.2015, 16:55

Pascal

uses crt;
var a:array[1..100] of integer;
    n,i,j,k,x,y:integer;
begin
randomize;
write('Размер массива n=');
readln(n);
writeln('Массив ');
for i:=1 to n do
 begin
  a[i]:=1+random(100);
  write(a[i]:4);
 end;
writeln;
k:=0;
for i:=1 to n-1 do
for j:=i+1 to n do
 begin
  x:=a[i];
  y:=a[j];
  while x<>y do
  if x>y then x:=x-y else y:=y-x;
  if x=1 then
   begin
    k:=k+1;
    writeln(a[i],' - ',a[j]);
    if k mod 20=0 then
     begin
      write('Press Enter');
      readln
     end;
   end;
 end;
if k=0 then write('Нет пар взаимно простых чисел');
end.

@Владдд 0 / 0 / 0 Регистрация: 20.01.2015 Сообщений: 18
		1
	Вывести на экран все пары элементов массива, не имеющих общих делителей 20.09.2015, 15:53. Показов 3202. Ответов 1 Метки нет (Все метки) Дан одномерный массив А неупорядоченных натуральных чисел.Вывести на экран все пары элементов массива, не имеющих общих делителей, или сообщение "Нет таких чисел",если пары отсутствуют. Пары x,y и y,x указывать один раз 0

	20.09.2015, 16:55

Вывести на экран все пары элементов массива, не имеющих общих делителей

Решение