Предмет: Информатика,
автор: n2n4
Задача по информатике, срочно!!!!
Найти сумму элементов линейного массива вещественных чисел имеющих нечетные номера.
Ответы
Автор ответа:
0
program qq;
uses crt;
var i, n: integer; a:array[1..20] of real; sum: real;
begin
writeln ('Введите количество элементов массива');
readln(n);
writeln ('Введите элементы массива');
for i:=1 to n do
read (a[i]);
sum:=0; //Обнуляем переменную суммы
for i:=1 to n do
if i mod 2 <> 0 then sum:=sum+a[i];
//Если индекс нечетный (т.е. его остаток от деления на 2 не равен
//нулю), то прибавляем элемент к уже посчитанной сумме
writeln (sum:6:2); //Выводим сумму на экран
end.
uses crt;
var i, n: integer; a:array[1..20] of real; sum: real;
begin
writeln ('Введите количество элементов массива');
readln(n);
writeln ('Введите элементы массива');
for i:=1 to n do
read (a[i]);
sum:=0; //Обнуляем переменную суммы
for i:=1 to n do
if i mod 2 <> 0 then sum:=sum+a[i];
//Если индекс нечетный (т.е. его остаток от деления на 2 не равен
//нулю), то прибавляем элемент к уже посчитанной сумме
writeln (sum:6:2); //Выводим сумму на экран
end.
Похожие вопросы
Предмет: Литература,
автор: lubomirrud69
Предмет: Литература,
автор: nikoletakalnmale29
Предмет: Математика,
автор: tana0668900443
Предмет: Физика,
автор: ник2525
Предмет: География,
автор: с1а2н3я4