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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 21.12.2012, 22:10   #1
Elvina
Пользователь
 
Регистрация: 12.06.2012
Сообщений: 11
Плохо Даны натуральное N и последовательность A1, A2, …,A N

1. Даны натуральное N и последовательность A1, A2, …,A N, состоящая из N целых чисел. Получить последовательность, которая отличается от исходной тем, что все четные элементы утроены.
2. Даны натуральное число N и последовательность A1, A2, …,A N. Определить наибольшее из нечетных и количество четных чисел, входящих в последовательность A1, A2, …,A N.
3. Даны натуральное число N и последовательность A1, A2, …,A N. Определить сумму положительных элементов.
4. Даны натуральное число N и последовательность A1, A2, …,A N. Определить количество отрицательных элементов.
5. Даны натуральное число N и последовательность A1, A2, …,A N. Определить сумму четных элементов.

Надеюсь на вашу помощь!
Кто может просмотрите пожалуйста эти задачи!
Заранее благодарна!
Elvina вне форума Ответить с цитированием
Старый 21.12.2012, 22:12   #2
Poma][a
Новичок
Джуниор
 
Регистрация: 11.10.2011
Сообщений: 3,882
По умолчанию

Цитата:
Кто может просмотрите пожалуйста эти задачи!
Посмотрел
Цитата:
Надеюсь на вашу помощь!
Тоесть предоставить полностью рабочий код?
А не будет ли это медвежьей услугой?

Кстати, какой язык программирования?
Poma][a вне форума Ответить с цитированием
Старый 21.12.2012, 22:36   #3
Elvina
Пользователь
 
Регистрация: 12.06.2012
Сообщений: 11
По умолчанию

Да, я прошу помочь..
Цитата:
Кстати, какой язык программирования?
На языке программирования Паскаль.

Цитата:
А не будет ли это медвежьей услугой?
Конечно, если вы так считаете, то можете не помогать... Я и сама думаю, просто просила кого-нибудь объяснить. Спасибо.
Elvina вне форума Ответить с цитированием
Старый 21.12.2012, 22:49   #4
Poma][a
Новичок
Джуниор
 
Регистрация: 11.10.2011
Сообщений: 3,882
По умолчанию

Цитата:
1. Даны натуральное N и последовательность A1, A2, …,A N, состоящая из N целых чисел. Получить последовательность, которая отличается от исходной тем, что все четные элементы утроены.
Лень
Цитата:
2. Даны натуральное число N и последовательность A1, A2, …,A N. Определить наибольшее из нечетных и количество четных чисел, входящих в последовательность A1, A2, …,A N.
Код:
ReadLn (n);

for i := 1 to n do
   Read (a[i]);
count := 0;
i := 1;
while (i <= n) and  (not(Odd(a[i]))) do
     Inc (i);
     WriteLn (i);

max := a[i];
count := i-1;
for i := i to n do
     if Odd(a[i]) then begin
         if max < a[i] then
            max := a[i];
     end
     else
         Inc (count);

     WriteLn (count, ' ', max)
end.
Цитата:
3. Даны натуральное число N и последовательность A1, A2, …,A N. Определить сумму положительных элементов.
Код:
sum := 0;
for i := 1 to n do
     if a[i] > 0 then
          Inc (sum, a[i]);

WriteLn (sum)
Цитата:
4. Даны натуральное число N и последовательность A1, A2, …,A N. Определить количество отрицательных элементов.
Код:
count := 0;
for i := 1 to n
   if a[i] < 0 then
       Inc (count);

WriteLn (count)
Цитата:
5. Даны натуральное число N и последовательность A1, A2, …,A N. Определить сумму четных элементов.
Код:
sum := 0;
for i := 1 to n do
    if not Odd (a[i]) then
        Inc (sum, a[i]);
Не проверял..

Последний раз редактировалось Poma][a; 21.12.2012 в 22:53.
Poma][a вне форума Ответить с цитированием
Старый 22.12.2012, 10:28   #5
Elvina
Пользователь
 
Регистрация: 12.06.2012
Сообщений: 11
По умолчанию

Большое Вам спасибо!
Искренне благодарна за помощь!
Elvina вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Даны натуральное число n и символы S1,…,Sn Zhasik Паскаль, Turbo Pascal, PascalABC.NET 1 30.12.2010 16:44
Даны натуральное число m Zhasik Паскаль, Turbo Pascal, PascalABC.NET 2 30.12.2010 16:36
Даны натуральное число n и символы S(1), ..., S(n Zhasik Паскаль, Turbo Pascal, PascalABC.NET 1 30.12.2010 16:29
Даны натуральное число n и символы S(1), ..., S(n) Zhasik Паскаль, Turbo Pascal, PascalABC.NET 1 30.12.2010 16:23
Даны натуральное число n, Хутор Паскаль, Turbo Pascal, PascalABC.NET 2 17.12.2010 19:18