Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 14.11.2009, 18:29   #1
belka1
Пользователь
 
Регистрация: 11.07.2009
Сообщений: 10
По умолчанию паскаль.найти сумму парных элементов.

дан массив. длинна массива 12. тип integer. найти сумму парных элементов.
belka1 вне форума Ответить с цитированием
Старый 14.11.2009, 19:59   #2
VilAm
Пользователь
 
Аватар для VilAm
 
Регистрация: 14.11.2009
Сообщений: 56
По умолчанию

Код:
var s:integer;
 a:array[1..12] of integer;
 i:integer;
begin
for i:=1 to 12 do
a[i]:=random(43);
for i:=1 to 12 do
write(a[i]:3);
writeln;
s:=0;
for i:=1 to 12 do
if a[i] mod 2 =0 then s:=s+a[i];
writeln('sum=',s:5);
readln;end.
Мы чужды себе, мы, познающие, мы сами чужды себе

Последний раз редактировалось VilAm; 14.11.2009 в 23:07.
VilAm вне форума Ответить с цитированием
Старый 14.11.2009, 22:35   #3
belka1
Пользователь
 
Регистрация: 11.07.2009
Сообщений: 10
По умолчанию

спасибо огромное=))
belka1 вне форума Ответить с цитированием
Старый 14.11.2009, 22:37   #4
Lemo
Форумчанин
 
Аватар для Lemo
 
Регистрация: 13.10.2008
Сообщений: 714
Радость

Код:
var s:integer;
 a:array[1..12] of integer;
 i:integer;
begin
for i:=1 to 12 do
a[i]:=random(43);
for i:=1 to 12 do
write(a[i]:3);
writeln;
s:=0;
for i:=1 to 12 do
if a[i] mod 2 = 0 then s:=s+a[i];
writeln('sum=',s:5);
readln;end.
Lemo вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Найти максимальный из положительных элементов матрицы и сумму отрицательных элементов. bessonov12 Microsoft Office Excel 7 04.05.2009 05:44
Найти сумму парных элементов матрицы v[4][4].Расположенных ниже главной диагонали. Black_Angel91 Помощь студентам 11 21.04.2009 20:51
Найти сумму, пр-ние и кол-во элементов массива Zid@ne Общие вопросы C/C++ 4 28.01.2009 19:58
Найти сумму квадратов отрицательных элементов массива bbk_serg Помощь студентам 7 21.01.2009 12:33
найти сумму элементов строки jenja Общие вопросы Delphi 2 02.04.2008 17:49