Question

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

Answer 1

Ответ:

var a[1..10] of integer;

c, i:integer;

begin

c:=0;

for i:=1 to 10 do a[i]:= random(10);

for i:=1 to 10 do

if (i mod 2 = 0) then c:= c + a[i];

write(c);

end.

Answer 2

Вот пример программы на языке Pascal для вычисления суммы элементов массива, которые находятся на четных позициях:

pascalCopy code
program SumOfEvenIndexedElements;

const
  MaxArraySize = 100;  // Максимальный размер массива

var
  arr: array[1..MaxArraySize] of real;  // Определение массива
  n, i: integer;
  sum: real;

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

  // Проверка на допустимый размер массива
  if (n <= 0) or (n > MaxArraySize) then
  begin
    writeln('Недопустимый размер массива. Размер должен быть от 1 до ', MaxArraySize);
    exit;
  end;

  // Ввод элементов массива
  writeln('Введите элементы массива:');
  for i := 1 to n do
  begin
    write('arr[', i, '] = ');
    readln(arr[i]);
  end;

  // Вычисление суммы элементов на четных позициях
  sum := 0;
  for i := 2 to n step 2 do
  begin
    sum := sum + arr[i];
  end;

  // Вывод результата
  writeln('Сумма элементов на четных позициях: ', sum);

end.

Эта программа сначала запрашивает размер массива и элементы массива с клавиатуры, затем вычисляет сумму элементов, находящихся на четных позициях, и выводит результат на экран.