Дан одномерный массив. Найти и вывести ** экран последовательность чисел, сумма которых...

Question

Дан одномерный массив. Найти и вывести на экран последовательность чисел, сумма которых является простым числом. Паскаль

Answer 1

const N = 12;

var  i, l, c, k, sum:integer;

     A:array[1..N] of integer;

begin

for i:=1 to N do begin

 A[i]:=random(101);  

 write(A[i], ' ');

end;

writeln();

for i:=1 to N do begin  

 for l:=1 to N do begin

  if i<>l then begin

   sum:=A[i]+A[l];

   for c:=1 to 300 do begin

    if sum mod c = 0 then

     k:=k+1;

   end;

   if k=2 then

    writeln(A[i], '+', A[l], '=', sum);

    k:=0;

  end;

 end;

end;

end.