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

@Kair · Регистрация: 15.11.2012

Студворк — интернет-сервис помощи студентам

Заполнить массив 20 случайными числами (использовать генератор случайных чисел).
Найти в массиве максимальный элемент и вывести на экран его значение и порядковый номер в массиве.

@GggDrej · 30.01.2013, 17:22

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
uses crt;
var arr:array[1..20] of integer;
     max,q:integer;
begin
 writeln ('ARRAY: ');
 for q:=1 to 20 do 
  begin
    arr[q]:=random(80);
    write (arr[q]:3);
  end;
 max:=arr[1];
 for q:=2 to 20 do
  if arr[q]>max then max:=arr[q];
 writeln;
 writeln('MAX = ',max);
end.

@Kair · 30.01.2013, 17:23 **[ТС]**

программа не работает

@земное ядро · 30.01.2013, 17:51

Сообщение от Kair

программа не работает

Ну почему не работает??? РАБОТАЕТ!

Добавлено через 9 минут

Сообщение от земное ядро

Ну почему не работает??? РАБОТАЕТ!

. Но там нет порядкового номера макс. элемента. Вот исправленная мной прога:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
uses crt;
var
   arr:array[1..20] of integer;
   max,q,maxq:integer;
begin
writeln ('ARRAY: ');
for q:=1 to 20 do
         begin
         arr[q]:=random(80);
         writeln (q:2,arr[q]:6);
         end;
max:=arr[1];
for q:=2 to 20 do
    if arr[q]>max then
       begin
       max:=arr[q];
       maxq:=q;
       end;
writeln;
write('MAX = ',max,' (Ï. ÍÎÌÅÐ ',maxq,')');
end.

@sed7773 · 16.04.2018, 17:31

Прошу прощение, а как можно этот код переделать на Делфи с Паскаля, и числа сталые , а не рандомные

Новые блоги и статьи Все статьи Все блоги /
Программная установка даты и запрет ее изменения Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: при создании документов установить период списания автоматически. . .	Вывод данных в справочнике через динамический список Maks 01.04.2026 Реализация из решения ниже выполнена на примере нетипового справочника "Спецтехника" разработанного в конфигурации КА2. Задача: вывести данные из ТЧ нетипового документа. . .	Функция заполнения текстового поля в реквизите формы документа Maks 01.04.2026 Алгоритм из решения ниже реализован на нетиповом документе "ВыдачаОборудованияНаСпецтехнику" разработанного в конфигурации КА2, в дополнении к предыдущему решению. На форме документа создается. . .	К слову об оптимизации kumehtar 01.04.2026 Вспоминаю начало 2000-х, университет, когда я писал на Delphi. Тогда среди программистов на форумах активно обсуждали аккуратную работу с памятью: нужно было следить за переменными, вовремя. . .
Идея фильтра интернета (сервер = слой+фильтр). Hrethgir 31.03.2026 Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .	Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда anaschu 31.03.2026 В прикрепленном документе раздумья о том, как можно поменять модель в будущем	10 пpимет, которые всегда сбываются Maks 31.03.2026 1. Чтобы, наконец, пришла маршрутка, надо закурить. Если сигарета последняя, маршрутка придет еще до второй затяжки даже вопреки расписанию. 2. Нaдоели зима и снег? Не надо переезжать. Достаточно. . .	Перемещение выделенных строк ТЧ из одного документа в другой Maks 31.03.2026 Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .

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

Решение

Решение

@Kair 0 / 0 / 1 Регистрация: 15.11.2012 Сообщений: 6

	Найти в массиве максимальный элемент и вывести на экран его значение и порядковый номер в массиве 30.01.2013, 16:52. Показов 62298. Ответов 4 Метки нет (Все метки) Заполнить массив 20 случайными числами (использовать генератор случайных чисел). Найти в массиве максимальный элемент и вывести на экран его значение и порядковый номер в массиве. 0

@Kair 0 / 0 / 1 Регистрация: 15.11.2012 Сообщений: 6
	30.01.2013, 17:23 [ТС]
	программа не работает 0

@sed7773 0 / 0 / 0 Регистрация: 18.03.2018 Сообщений: 17
	16.04.2018, 17:31
	Прошу прощение, а как можно этот код переделать на Делфи с Паскаля, и числа сталые , а не рандомные 0