подскажииитее каак??))) - Помощь студентам

Andrei B · 20.05.2014, 12:22

begin
for i:=1 to n do
if mas[i]>0 then sum:=sum+mas[i];
memo2.Text:=IntToStr(sum);
как поменять условие между if и then что бы вычисляло сумму чётных чисел

GetMax · 20.05.2014, 12:31

Код:

if not (odd(mas[i]))

20.05.2014, 12:22	#1
Andrei B Пользователь Регистрация: 19.05.2014 Сообщений: 10	подскажииитее каак??))) begin for i:=1 to n do if mas[i]>0 then sum:=sum+mas[i]; memo2.Text:=IntToStr(sum); как поменять условие между if и then что бы вычисляло сумму чётных чисел

20.05.2014, 12:31	#2
GetMax Форумчанин Регистрация: 21.10.2010 Сообщений: 588	Код: `if not (odd(mas[i]))` Пользователь не знает, чего он хочет, пока не увидит то, что он получил. Для благодарностей WMR R145235935681