Информатика, опубликовано 2018-08-22 18:46:30 by Гость
Дан одномерный вещественный массив из n чисел. Написать программу нахождения суммы элементов массива стоящих на нечетных позициях (индекс). БЛОК СХЕМА НЕ НУЖНА ТОЛЬКО ПРОГРАММА 10 БАЛЛОВ
Ответ оставил Гость
Var
s:real;
n,i:integer;
a:array[1..1000] of real;
begin
write(Введите кол-во элементов: ); readln(n);
writeln(Введите элементы: );
for i:=1 to n do
read(a[i]);
s:=0;
for i:=1 to n do
if odd(i) then s:=s+a[i];
writeln(Сумма: ,s);
end.
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.
Форма вопроса доступна на