Question

Массив из 10 ел заполняется с клавиатуры, вывести на экран элементы массива составляющие парус наиб нечётн суммой если пары образ числа отличающиесч на 2 На паскале

Answer 1

Ответ:

var i,n:integer; a:array[1..100]of integer;

begin

write('Введите размер массива: '); readln(n);

writeln('Введите значения элементов массива, разделяя их пробелами');

for i:=1 to n do read(a[i]); readln;

for i:=1 to n do write(a[ i]:8); writeln;

for i:=n downto 1 do write(a[i]:8); writeln;

writeln('Для выхода нажмите Enter'); readln

end.

Объяснение:

Answer 2

Для решения этой задачи на Pascal, вам нужно будет сначала ввести массив из 10 элементов с клавиатуры, затем найти пары элементов, отличающихся на 2, и проверить, образуют ли они четную сумму. Если да, то выведем эти пары. Вот пример программы на Pascal:

pascalCopy code
program FindPairs;
var
  arr: array[1..10] of integer;
  i, j: integer;
begin
  // Ввод элементов массива
  writeln('Введите 10 элементов массива:');
  for i := 1 to 10 do
  begin
    write('Элемент ', i, ': ');
    readln(arr[i]);
  end;

  writeln('Пары элементов с разницей 2 и с четной суммой:');

  for i := 1 to 9 do
  begin
    for j := i + 1 to 10 do
    begin
      if (abs(arr[i] - arr[j]) = 2) and ((arr[i] + arr[j]) mod 2 = 0) then
      begin
        writeln(arr[i], ' и ', arr[j]);
      end;
    end;
  end;

  readln;
end.

Эта программа сначала запрашивает ввод 10 элементов массива с клавиатуры, затем проверяет все возможные пары элементов в массиве. Если разница между элементами равна 2 и сумма элементов четная, то они выводятся на экран.

После выполнения программы, вы увидите пары элементов, удовлетворяющих вашим условиям.