Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
A.R.T
0 / 0 / 0
Регистрация: 17.05.2011
Сообщений: 3
1

перемножать два элемента подряд стоящие

17.05.2011, 15:21. Просмотров 383. Ответов 4
Метки нет (Все метки)

Даны целые числа а1,..,аn. Все члены последовательности с четными номерами, предшествующие первому по порядку члену со значением max (a1,..,an) домножить на min (a1,..,an).
0
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
17.05.2011, 15:21
Ответы с готовыми решениями:

Выяснить, имеются ли в данном массиве два идущих подряд положительных элемента
Помогите решить пожалуйста!!! буду очень благодарна) Дан массив действительных чисел а1,…, аn....

В последовательности целых чисел определить, имеются ли в ней два идущих подряд положительных элемента
(Задачу реализовать без использования массивов) В последовательности целых чисел...

Выяснить, имеются ли в данном массиве два идущих подряд положительных элемента. Подсчитать число таких пар
Всем доброе время суток! Очень нужна помощь! Дан массив действительных чисел а1,…, аn....

Обнулить элементы, стоящие до минимального элемента
Здравствуйте, помогите,пожалуйста, с задачами: 1.В одномерном массиве из 10 элементов определить...

Дана произвольная строка символов. Заменить подряд стоящие одинаковые символы одним символом, а после него в скобках записать число символов, которые
Дана произвольная строка символов. Заменить подряд стоящие одинаковые символы одним символом, а...

4
Omlette
18 / 18 / 17
Регистрация: 29.03.2011
Сообщений: 45
18.05.2011, 00:05 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
var a:array [1..50] of integer; imin,imax,i,n:integer;
 begin
  writeln('Ââåäèòå ðàçìåðíîñòü ìàññèâà ');
  readln(n);
  writeln('Ââåäèòå ìàññèâ ');
  for i:=1 to n do readln(a[i]);
  imin:=1;imax:=1;
  for i:=1 to n do
   begin
    if a[i]>a[imax] then imax:=i;
    if a[i]<a[imin] then imin:=i;
   end;
  for i:=1 to (imax-1) do if (i mod 2=0) then a[i]:=a[i]*a[imin];
  for i:=1 to n do write(a[i]:4);
end.
1
A.R.T
0 / 0 / 0
Регистрация: 17.05.2011
Сообщений: 3
18.05.2011, 18:44  [ТС] 3
спасибо! что-то несчитает(( просто выводит введеный массив!!!(((
0
Omlette
18 / 18 / 17
Регистрация: 29.03.2011
Сообщений: 45
18.05.2011, 23:43 4
Возможно у вас просто минимальный элемент равен 1?)
0
A.R.T
0 / 0 / 0
Регистрация: 17.05.2011
Сообщений: 3
19.05.2011, 13:43  [ТС] 5
да и правда 1))) все работает, но лишь при положительном минимальном члене, а при отрицательном умножает на модуль
0
19.05.2011, 13:43
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
19.05.2011, 13:43

Создать модуль который будет перемножать два числа между собой
Не могу решить задачу: Создать модуль который будет перемножать два числа между собой. Основная...

Два подряд идущих элемента списка
Помогите написать предикат, которой для заданного числа и заданного числового списка проверяет,...

Определить два идущих подряд нулевых элемента
Помогите пожалуйста выяснить,имеется ли в массиве C (динамический) два идущих подряд нулевых...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2019, vBulletin Solutions, Inc.