Компьютерный форум
Правила
Вернуться   Компьютерный форум > Форум программистов > Языки программирования > Pascal
Перезагрузить страницу Здравствуйте! Мне нужна ваша помощь.
Ответ
 
Опции темы Опции просмотра
  (#1 (permalink)) Старый
Ви7я Ви7я вне форума
Новичок
 
Сообщений: 1
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 19.04.2016
Exclamation Здравствуйте! Мне нужна ваша помощь. - 19.04.2016, 19:14

В одномерном массиве, состоящим из n целочисленных элементов, вычислить:
1)Минимальный по модулю элемент массива;
2)Cумму модулей элементов массива, расположенных после первого элемента, равного нулю.
Преобразовать массив таким образом, чтобы в первой его половине располагались элементы, стоящие в четных позициях, а во второй половине - элементы, стоящие не в четных позициях.


Заранее спасибо!
Ответить с цитированием
  (#2 (permalink)) Старый
wanja wanja вне форума
Member
 
Сообщений: 585
Сказал(а) спасибо: 1
Поблагодарили 25 раз(а) в 25 сообщениях
Регистрация: 08.05.2005
По умолчанию 21.04.2016, 09:39

1)
pascal Код:
minm:=a[1];
for i:=2 to n do
   if abs(a[i])<abs(minm) then
      minm:=a[i];
2)
pascal Код:
i:=1;
while (i<n)and(a[i]<>0) do
   inc(i);
s:=0;
for j:=i+1 to n do
  s:=s+abs(a[i]);
Ответить с цитированием
Ads
Ответ

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Здравствуйте!!мне нужна ваша помощь срочно((( Любовь1111 Java 5 11.06.2012 17:23
Нужна ваша помощь! ! ! Оленька25 Сотовые телефоны 9 26.04.2012 19:28
Нужна ваша помощь ramazan05duldug Любые вопросы от новичков 7 24.02.2012 21:58
нужна ваша помощь panov1 Любые вопросы от новичков 7 19.02.2012 21:54
Нужна ваша помощь ARROWS С/С++ 4 16.01.2012 01:28
Нужна ваша помощь mino Любые вопросы от новичков 34 03.07.2011 16:16
Нужна ваша помощь spyder Любые вопросы от новичков 2 18.06.2011 06:22
Нужна ваша помощь compas Любые вопросы от новичков 14 05.12.2010 13:02
Нужна ваша помощь compas Любые вопросы от новичков 0 04.12.2010 01:10
Нужна ваша помощь!!! Катена Операционная система Windows 3 17.12.2009 17:30



Powered by vBulletin® Version 3.8.7
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.
Нardforum.ru - компьютерный форум и программирование, форум программистов