Найти сумму элементов, стоящих на четных местах в массеве из 10 элементов, заданных с клавиатуры

Question

Информатика

Елизар

10 февраля, 19:46

Найти сумму элементов, стоящих на четных местах в массеве из 10 элементов, заданных с клавиатуры

+1

Ответы (2)

Знаете ответ на вопрос?

Олегушка · Answer 1

var a:array [1 ... 10] of integer;

i, s:integer;

begin

for i:=1 to 10 do

begin

readln (a[i]) ;

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

end;

writeln (a[i]) ;

end.

Всеволод · Answer 2

Uses crt;

var a:array[1 ... 10] of real;

i:integer; s:real;

begin

writeln ('Введите массив:') ;

for i:=1 to 10 do

begin

readln (a[i]) ;

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

end;

writeln;

write ('Summa=', s) ;

end.