В массиве 10 элементов А(1...10) А(i)=i-5 Найти сумму эл-тов и СА последних 5 эд-тов.

1

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

2014-03-05T14:53:40+00:00
Var a:array[1..10] of integer; 
k,s1,s2:integer; 
begin 
s1:=0;s2:=0; 
for k:=1 to 5 do 
s1:=s1+a[k]; 
for k:=10 downto 6 do 
s2:=s2+a[k]; 
writeln('summa pervih: ',s1,'summa vtorih: ',s2);readln 
end.
точно правильно?
да я проверял недавно было так же
можно лучший ответ?!
спс