Дан одномерный массив вещественных чисел
произвольной размерности. Определить сумму тех
элементов, которые находятся на четных местах.
На паскале, желательно с динамическими массивами.
произвольной размерности. Определить сумму тех
элементов, которые находятся на четных местах.
На паскале, желательно с динамическими массивами.
More Questions From This User See All
Answers & Comments
Ответ:
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.