Question

Pascal.ABC Задача 1: Создать два массива из 10 целых чисел А и В. Заполнить массив А и вывести его. Заполнить массив В элементами из А, но в обратном порядке. Задачи 2: Создать тот же А. Посчитать разницу между суммой всех четных и нечетных чисел. Задачи 3: Подсчитать разницу между суммой всех элемнтов с четными и нечетными индексами. -

Answer 1

Первая программа

const n=10;

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

   i,j:integer;

begin

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

 for i:=1 to n do

   writeln('a[',i,']=',a[i]);

   

 for i:=n downto 1 do begin

   for j:=n-i+1 to n do begin

     b[j]:=a[i];

     break;

   end;

 end;

 

 for i:=1 to n do

   writeln('b[',i,']=',b[i]);

end.

Вторая программа

const n=10;

var i,s1,s2:integer;

   a:array[1..n] of integer;

begin

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

 for i:=1 to n do begin

   if(a[i] mod 2 = 0) then

     s1:=s1 + a[i];

   if(a[i] mod 2 <> 0) then

     s2:=s2 + a[i];

 end;

 writeln('Разность равна: ',s1-s2);

end.

Третья программа

const n=10;

var i,s1,s2:integer;

   a:array[1..n] of integer;

begin

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

 for i:=1 to n do begin

   if(i mod 2 = 0) then

     s1:=s1 + a[i];

   if(i mod 2 <> 0) then

     s2:=s2 + a[i];

 end;

 writeln('Разность равна: ',s1-s2);

end.

Answer 2

Хорошо, давайте решим каждую задачу по порядку.

Задача 1: Создание массивов А и В и заполнение массива В элементами из массива А в обратном порядке.

pascalCopy code
program Task1;

var
  A, B: array[1..10] of Integer;
  i: Integer;

begin
  // Заполнение массива А
  for i := 1 to 10 do
  begin
    A[i] := i; // Здесь можно вводить числа с клавиатуры или использовать другой способ заполнения.
  end;

  // Вывод массива А
  WriteLn('Массив А:');
  for i := 1 to 10 do
  begin
    Write(A[i], ' ');
  end;

  // Заполнение массива В элементами из массива А в обратном порядке
  for i := 1 to 10 do
  begin
    B[i] := A[11 - i];
  end;

  // Вывод массива В
  WriteLn;
  WriteLn('Массив B (элементы из А в обратном порядке):');
  for i := 1 to 10 do
  begin
    Write(B[i], ' ');
  end;

  ReadLn;
end.

Задача 2: Подсчет разницы между суммой всех четных и нечетных чисел в массиве А.

pascalCopy code
program Task2;

var
  A: array[1..10] of Integer;
  i, evenSum, oddSum, diff: Integer;

begin
  // Заполнение массива А
  for i := 1 to 10 do
  begin
    A[i] := i; // Здесь можно вводить числа с клавиатуры или использовать другой способ заполнения.
  end;

  evenSum := 0;
  oddSum := 0;

  // Подсчет суммы четных и нечетных чисел
  for i := 1 to 10 do
  begin
    if A[i] mod 2 = 0 then
      evenSum := evenSum + A[i]
    else
      oddSum := oddSum + A[i];
  end;

  // Подсчет разницы
  diff := evenSum - oddSum;

  WriteLn('Сумма четных чисел в массиве А: ', evenSum);
  WriteLn('Сумма нечетных чисел в массиве А: ', oddSum);
  WriteLn('Разница между суммой четных и нечетных чисел: ', diff);

  ReadLn;
end.

Задача 3: Подсчет разницы между суммой всех элементов с четными и нечетными индексами в массиве А.

pascalCopy code
program Task3;

var
  A: array[1..10] of Integer;
  i, evenIndexSum, oddIndexSum, diff: Integer;

begin
  // Заполнение массива А
  for i := 1 to 10 do
  begin
    A[i] := i; // Здесь можно вводить числа с клавиатуры или использовать другой способ заполнения.
  end;

  evenIndexSum := 0;
  oddIndexSum := 0;

  // Подсчет суммы элементов с четными и нечетными индексами
  for i := 1 to 10 do
  begin
    if i mod 2 = 0 then
      evenIndexSum := evenIndexSum + A[i]
    else
      oddIndexSum := oddIndexSum + A[i];
  end;

  // Подсчет разницы
  diff := evenIndexSum - oddIndexSum;

  WriteLn('Сумма элементов с четными индексами в массиве А: ', evenIndexSum);
  WriteLn('Сумма элементов с нечетными индексами в массиве А: ', oddIndexSum);
  WriteLn('Разница между суммой элементов с четными и нечетными индексами: ', diff);

  ReadLn;
end.

Приведенные программы решают задачи 1, 2 и 3, используя язык программирования Pascal. Вы можете скопировать каждую из них в среду Pascal (например, Lazarus) и запустить для проверки результатов.