0 / 0 / 0
Регистрация: 04.10.2012
Сообщений: 7
1

Найти номер первого максимального значения среди элементов, меньших a и расположенных правее первого элемента, кратного трем

04.10.2012, 12:22. Показов 1680. Ответов 1
Метки нет (Все метки)

Помогите плз!
Найти номер первого максимального значения среди элементов, меньших a и рас-положенных правее первого элемента, кратного трем.
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
04.10.2012, 12:22
Ответы с готовыми решениями:

Найти номер первого минимального элемента среди положительных элементов, расположенных до первого элемента, кратного пяти.
Задан целочисленный одномерный массив a из n элементов. Найти номер первого минимального элемента...

Найти номер последнего минимального элемента среди элементов, меньших t и лежащих правее первого элемента, равного s
Дан целочисленный вектор A(n). Найти номер последнего минимального элемента среди элементов,...

Найти номер первого максимального элемента среди элементов, больших А
Переставить компонент вектора так, что бы в начале стояли отрицательные, затем нулевые и...

Найти номер первого максимального элемента массива среди элементов, лежащих в диапазоне от А до В
Здравствуйте! Скажите пожалуйста по пунктам или еще как нибудь как нужно выполнять эту задачу, а то...

1
3028 / 1914 / 1649
Регистрация: 30.04.2011
Сообщений: 3,060
05.10.2012, 16:32 2
Лучший ответ Сообщение было отмечено fox1k как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
Uses crt;
Var
  x: Array[1..100] of Integer;
  i,n,nom,d,max,t: Integer;
BEGIN
Writeln('Введите кол-во элементов: '); Readln(n);
Writeln('Массив: ');
For i:=1 to n do
begin
  x[i]:=Random(50);
  Write(x[i],' ');
end;
For i:=n downto 1 do
If x[i] mod 3=0 Then
begin
  d:=x[i];
  nom:=i;
end;
Writeln;
Writeln('Первый элемент, кратный 3: ',d, '. Его номер - ',nom);
For i:=nom+1 to n do
If x[i]<d Then max:=x[i];
For i:=nom+1 to n do
If (x[i]<d) and (x[i]>max) Then
begin
  max:=x[i];
  t:=i;
end;
Writeln;
Writeln('Max: ',max,'. Его номер: ',t);
Readln
END.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
05.10.2012, 16:32
Помогаю со студенческими работами здесь

Найти минимальное значение положительных элементов, расположенных правее первого элемента, равного нулю
Дан целочисленный вектор A(n). Найти минимальное значение положительных элементов, расположенных...

Найти номер первого положительного элемента массива в1,в2 ... в15 и сумму элементов, расположенных правее него
1) найти номер первого положительного элемента массива в1,в2 ... в15 и сумму элементов,...

Найти номер первого максимального значения среди элементов
Задан целочисленный одномерный массив A из N элементов. Найти номер первого максимального значения...

Найти номер первого элемента, кратного числу 13
Здраствуйте!!! Помогите пожалуйста с написанием программ на турбо паскале!!!! Брат проболел очень...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru