Цитата:
|
Сообщение от Rinat41
Код:
summ:=0;
for i:=1 to n do
if i mod 2<>0 then summ:= summ + a[i];
Label1.Caption:='Сумма1: ' + FloatToStr(summ);
|
Хит сезона... Ну кто так вас учит программировать то????
На форуме уже обсуждали задание: вычислить сумму четных/нечетных элементов.
Поищи...