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

Question

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

Comments

Паскаль не знаю, сори

---

паскаль

---

на каком языке?

Answer 1

Ответ:

pascal. динамический массив

Объяснение:

var

 i, n: integer;

 s: real;

 a: array of real;

begin

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

 ReadLn(n);

 SetLength(a, n);

 for i := 0 to n - 1 do

 begin

   Write('Введите a[', i, ']=');

   ReadLn(a[i]);

   if i mod 2 = 0 then s := s + a[i];

 end;

 WriteLn('Сумма четных элементов равна ', s);

end.