|
|
|
Регистрация Восстановить пароль |
|||||||
| Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
||||
 |
|
|
Опции темы | Поиск в этой теме |
20.05.2014, 11:52
|
#1 |
|
Пользователь
Регистрация: 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, 11:57
|
#2 |
|
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,097
|
if not odd(mas[i]) then ...
если ничего не путаю
I'm learning to live...
|
|
|
|
20.05.2014, 12:00
|
#3 |
|
Пользователь
Регистрация: 19.05.2014
Сообщений: 10
|
нет не работает
|
|
|
|
20.05.2014, 12:12
|
#4 |
|
Пользователь
Регистрация: 19.05.2014
Сообщений: 10
|
есть ещё варианты?
|
|
|
|
20.05.2014, 13:05
|
#5 |
|
Пользователь
Регистрация: 19.05.2014
Сообщений: 10
|
вот так должно выглядеть if (mas[i] mod 2 = 0) then
|
|
|
|
Похожие темы
|
||||
| Тема | Автор | Раздел | Ответов | Последнее сообщение |
| Использование Microsoft Visual C++ 2010 Express для отладки сторонней проги. Подскажите пожалуста комплексно тему. | Dimka-novitsek | Visual C++ | 0 | 06.12.2013 15:43 |
| Помогите пожалуста | Grisha | Microsoft Office Excel | 5 | 20.03.2009 10:29 |
| Паскаль. Подскажите пожалуста как решить эту задачу. | svobodys | Помощь студентам | 10 | 04.11.2008 14:10 |
| Подскажите пожалуста! есть ли переменная для обозначения дисковода? | Medyankin | Помощь студентам | 4 | 27.07.2008 15:58 |
