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

1

Ответы и объяснения

2013-06-14T14:18:22+04:00

var

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

i,s:integer;

begin

s:=0; 

for i:=1 to 10 do begin

write ('A[',i,'] = ');readln(a[i]);

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

end;

writeln ('Summa: ',s);

readln;

end.