Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.80/5: Рейтинг темы: голосов - 5, средняя оценка - 4.80
мишутка
0 / 0 / 0
Регистрация: 10.06.2015
Сообщений: 9
1

найти максимальное значение и его индекс

07.09.2010, 18:32. Просмотров 819. Ответов 1
Метки нет (Все метки)

Добрые люди помогите решить задание.

Напишите алгоритм на языке блок-схем и на языке паскаль.
задание для работы.
задан массив а,содержащий n чисел. найти значение и индекс максимального элемента.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
07.09.2010, 18:32
Ответы с готовыми решениями:

Массивы.Найти максимальное значение и его номер
Var a:array of integer; max,k,i,n:integer; begin writeln('введите кол-во...

Из рандомного массива найти максимальное значение и его номер
:)Помогите

Найти максимальное значение только из нечетных и его номер.
Var a:integer; max,k,i,n:integer; begin writeln('введите кол-во чисел');...

Найти максимальное значение только из нечетных и его номер.с помощью цикла.
помогите пожалуйста.препод злой...все ненравится....Даны N натуральных...

максимальное значение чисел в каждом столбце матрицы и его номер.
Введите матрицу вещественных чисел, размером N*M(N<=5, M<=8). Найдите...

1
Demon-red
139 / 139 / 97
Регистрация: 25.01.2010
Сообщений: 181
07.09.2010, 22:00 2
Лучший ответ Сообщение было отмечено как решение

Решение

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
uses crt;
var a : array [1..10] of integer;
    i,n,max,j : integer;
begin
 clrscr;
 randomize;
 write('Vvedite n = ');
 readln(n);
 for i := 1 to n do
  begin
   a[i] := random(20);
  end;
 for i := 1 to n do
  begin
   write(a[i]:3);
  end;
  writeln;
  max := a[1];
  j := 1;
  for i := 1 to n do
   if (max < a[i]) then
    begin
     max := a[i];
     j := i;
    end;
 writeln('max = ',max,' index = ',j);
 readln;
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
07.09.2010, 22:00

Найти наименьший элемент массива и его индекс
Дан одномерный массив вещественных чисел Х и вещественное число а. Составить...

Для произвольного массива найти элемент и его индекс
Составьте программу, поподробней пожалуйста!! Для произвольного массива найти...

Разработать программу, которая находит максимальное значение и его расположение среди элементов матрицы
Задана матриця X(n,n) , n ≤15 та множини номерів рядків S1 і стовпців S2 ....


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

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

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