Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.78/9: Рейтинг темы: голосов - 9, средняя оценка - 4.78
1 / 1 / 0
Регистрация: 16.02.2011
Сообщений: 25
1

Найти количество элементов массива, предшествующих наибольшему элементу массива

24.02.2011, 18:13. Просмотров 1745. Ответов 3
Метки нет (Все метки)


Дан массив X(N). Найти количество элементов массива, предшествующих наибольшему элементу массива.

Помогите решить, пожалуйста...
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
24.02.2011, 18:13
Ответы с готовыми решениями:

найти сумму элементов предшествующих наибольшему элементу
найти сумму элементов предшествующих наибольшему элементу наибольший я конечно же нашел не...

Массив. Найти сумму и количество элементов, предшествующих первому нулевому элементу.
Дан массив А(10).Найти сумму и количество элементов, предшествующих первому нулевому...

Определить число элементов одномерного массива предшествующих его первому нулевому элементу
Составить процедуру для определения числа элементов одномерного массива предшествующих его первому...

Найти среднеарифметическое элементов массива, предшествующих первому элементу, большему 50
Найти среднеарифметическое элементов вещественного массива А1,А2...Аn предшествующих первому...

3
126 / 94 / 74
Регистрация: 18.01.2011
Сообщений: 227
24.02.2011, 19:17 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
uses crt;
var x:array[1..100] of integer;
n,i,max,m:integer;
begin
write('введите количество элементов массива = ');
readln(n);
max:=1;
m:=1;
for i:=1 to n do  begin
write('введите x',i,' = ');
 readln(x[i]);
 end;
 for i:=1 to n do begin write(x[i],' '); end;
    for i:=1 to n do
      if x[i]>max then
      begin
        max:=x[i];
        m:=i-1;
      end;
      writeln;
      writeln(m,' элем.');
end.
1
1 / 1 / 0
Регистрация: 16.02.2011
Сообщений: 25
24.02.2011, 20:43  [ТС] 3
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
Program u2;
var x:array[1..100] of integer;
n,i,max,m:integer;
begin
write('Введите количество элементов массива = ');
readln(n);
max:=1;
m:=1;
     for i:=1 to n do
  begin
write('Введите x',i,' = ');
 readln(x[i]);
  end;
    for i:=1 to n do begin write(x[i],' ');
end;
    for i:=1 to n do
       if x[i]>max then
           begin
               max:=x[i];
               m:=i-1;
           end;
writeln;
writeln(m,' элемент');
end.
0
2855 / 1984 / 788
Регистрация: 23.09.2010
Сообщений: 4,877
24.02.2011, 20:57 4
.....
1
Миниатюры
Найти количество элементов массива, предшествующих наибольшему элементу массива  
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
24.02.2011, 20:57

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь или здесь.

Найти сумму элементов массива, предшествующих первому отрицательному элементу
Дан массив Х(n). Найти сумму элементов массива, предшествующих первому отрицательному элементу....

Найти среднее арифметическое элементов, предшествующих первому положительному элементу массива
Найти среднее арифметическое значение элементов массива х(х1,х2...х10), предшествующих первому...

Найти среднее арифметическое элементов массива, предшествующих первому нулевому элементу
Доброго времени суток, форумчане! Столкнулся с проблемой в коде программы, задание такое: Дан...

Найти произведение и среднее арифметическое элементов массива,предшествующих первому нулевому элементу
Дан массив вещественных чисел.Найти произведение и среднее арифметическое элементов...

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

Найти сумму элементов, предшествующих первому положительному элементу, и количество таких элементов
В одномерном массиве вещественных чисел найти сумму элементов, предшествующих первому...


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

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

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