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

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

Задать свой вопрос
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 ilt;gt;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.

, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт