В массиве F(15) найти сумму элементов, стоящих на нечетных местах
В массиве F(15) найти сумму элементов, стоящих на нечетных местах
Гость
Ответ(ы) на вопрос:
Гостьconst
n = 15;
var
i, s: integer;
a: array[1..n] of integer;
begin
s := 0;
for i := 1 to n do
begin
write('a[', i, ']=');
readln(a[i]);
if i mod 2 = 1 then
s := s + a[i];
end;
writeln(s);
end.
Не нашли ответ?
Похожие вопросы