Question

Даю много баллов!ПАСКАЛЬ!Только решите!С подробной записью всей программы и ответом!Даны 2 массива А и В по 20 элементов.Сформировать массив с=А+В,в полученном массиве найти сумму элементов,имеющих чётный индекс.Запишите подробно всю прграмму...Прошу.Работаем с Паскалем(((

Answer 1

ИСПРАВЛЕНО
---
Uses crt;
{описание переменных}
var a,b,c: array [1..20] of integer;
    x,sum:integer;
begin
     sum:=0; {обнуляем сумму}
     for x:=1 to 20 do {включаем цикл ввода массивов}
     begin
          write('a[',x,']:'); {вывод текста на экран}
          readln(a[x]); {ввод массива А}
          write('b[',x,']:'); {вывод текста на экран}
          readln(b[x]); {ввод массива В}
          c[x]:=a[x]+b[x]; {формируем массив С}
          if x mod 2=0 then
             sum:=sum+c[x];
     end;
     writeln; {переводим указатель на новую строку}
     for x:=1 to 20 do {цикл вывода массива С}
         writeln('c[',x,']:',c[x]); {вывод текста на экран}
     writeln('sum=',sum); {сумма четных элементов массива С}
end.
---
текст в фигурных скобках удалять не обязательно, он на код не влияет.

Answer 2

Решение задачи на Паскале

Вот подробная запись программы на языке Паскаль для решения данной задачи:

program SumOfEvenIndexedElements;
const
  N = 20; // Количество элементов в массивах
var
  A, B, C: array[1..N] of Integer; // Массивы А, В и С
  i, sum: Integer; // Переменные для цикла и суммы
begin
  // Заполнение массивов А и В случайными числами
  Randomize;
  for i := 1 to N do
  begin
    A[i] := Random(100); // Генерация случайного числа от 0 до 99
    B[i] := Random(100);
  end;

// Формирование массива С путем объединения массивов А и В
  for i := 1 to N do
  begin
    C[i] := A[i];
    C[i + N] := B[i];
  end;

// Вычисление суммы элементов с четными индексами в массиве С
  sum := 0;
  for i := 2 to 2 * N step 2 do
  begin
    sum := sum + C[i];
  end;

// Вывод результата
  writeln('Сумма элементов с четными индексами в массиве C: ', sum);
end.

В данной программе мы объявляем три массива: А, В и С, каждый из которых содержит 20 элементов. Затем мы заполняем массивы А и В случайными числами с помощью функции `Random`. Далее мы формируем массив С путем объединения массивов А и В. Для этого мы используем цикл `for`, который проходит по всем элементам массивов А и В и записывает их в массив С.

Затем мы вычисляем сумму элементов с четными индексами в массиве С. Для этого мы используем еще один цикл `for`, который проходит по всем элементам массива С, начиная с индекса 2 и с шагом 2. Таким образом, мы обрабатываем только элементы с четными индексами и добавляем их значения к переменной `sum`.

Наконец, мы выводим результат - сумму элементов с четными индексами в массиве C.

Примечание: В данной программе используется функция `Randomize`, которая инициализирует генератор случайных чисел. Это необходимо для получения разных случайных чисел при каждом запуске программы. Если вы хотите получить одинаковые случайные числа при каждом запуске программы, вы можете закомментировать строку `Randomize`.