Question

Паскаль для решения следующей задачи: заполнить ЦЕЛОЧИСЛЕННЫЙ массив 20-ю случайными элементами в диапазоне от 20 до 40 и найти сумму лишь НЕЧЁТНЫХ номеров (элементов) массива.

Answer 1

Const
    n = 20;

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

begin
    randomize;
    for i := 1 to n do
    begin
        a[i] := random(20) + 20;
        write(a[i], ' ');
        if i mod 2 = 1 then
            s := s + a[i];
    end;
    
    writeln();
    writeln(s);
end.

Answer 2

Я попробую написать код на Паскале для решения этой задачи. Вот мой код:

program array_sum;
var
  a: array[1..20] of integer; // объявляем целочисленный массив размером 20
  i, sum: integer; // объявляем переменные для индекса и суммы
begin
  randomize; // инициализируем генератор случайных чисел
  sum := 0; // присваиваем сумме начальное значение 0
  for i := 1 to 20 do // цикл по всем элементам массива
  begin
    a[i] := 20 + random(21); // заполняем массив случайными числами от 20 до 40
    writeln('a[', i, '] = ', a[i]); // выводим элемент массива на экран
    if i mod 2 = 1 then // если индекс элемента нечётный
      sum := sum + a[i]; // добавляем элемент к сумме
  end;
  writeln('Сумма нечётных элементов массива равна ', sum); // выводим сумму на экран
end.

Надеюсь, это поможет вам понять, как решить задачу.