найти номер максимального цисла

@Dariys · Регистрация: 02.10.2009

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

люди помогите пожалуйста
нужно создать целочисленный массив потом найти в нем номер последнего максимального элемента (если он один или их несколько)

@Тамила · 14.12.2009, 18:40

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
a:array[1..10]of integer;
i, j, max:integer;
begin clrscr;
begin randomize;
for i:=1 to 10 do begin
a[i]:=random(100);
write('a[',i,']=', a[i],'  ');
end;
end;
max:=a[1];
for i:=1 to 10 do
if a[i]>max then begin max:=a[i];
j:=i;
end;
writeln;
writeln;
writeln('position of max element=',j);
writeln('max=', max);
readkey;
end.

Добавлено через 33 секунды

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

последнего максимального элемента

что это значит?

@outoftime · 14.12.2009, 18:42

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Program help;
Var a:array [1..20] of integer;
    i, max, mn, n:integer;
Begin
     readln(n);
     for i := 1 to n do
         a[i] := random(10)-5;
     max := a[1];
     mn := 1;
     for i := 1 to n do
         if a[i] >= max then
             begin 
                  max := a[i];
                  mn := i;
             end;
     writeln(mn);
End.

@Dariys · 14.12.2009, 18:42 **[ТС]**

Сообщение от Тамила

Цитата:
Сообщение от Dariys Посмотреть сообщение
последнего максимального элемента
что это значит?

это значит последнего числа просто в задание так написано спасибо за код

@outoftime · 14.12.2009, 18:43

Сообщение от Тамила

что это значит?

что нужно проверять на ровно и идти сначала..

@кот Бегемот · 14.12.2009, 18:44

to Тамила
ваша программа находит номер первого, а не последнего максимума. измените знак в 14 строке на >=

@Тамила · 14.12.2009, 18:46

поняла, тогда исправьте:

Pascal
1
2
if a[i]>=max then begin max:=a[i];
........

Добавлено через 51 секунду

Не по теме:

alexevt, спасибо, я уже поняла...

@Dariys · 14.12.2009, 18:51 **[ТС]**

всем спасибо тему можно закрывать

Тамила, спасибо тебе=)

Новые блоги и статьи Все статьи Все блоги /
Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .	Архитектура слоя интернета для сервера-слоя. Hrethgir 11.04.2026 В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .	Подстановка значения реквизита справочника в табличную часть документа Maks 10.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .	Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .
модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий anaschu 08.04.2026 https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI	Блокировка документа от изменений, если он открыт у другого пользователя Maks 08.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .	Система безопасности+живучести для сервера-слоя интернета (сети). Двойная привязка. Hrethgir 08.04.2026 Далее были размышления о системе безопасности. Сообщения с наклонным текстом - мои. А как нам будет можно проверить, что ссылка наша, а не подделана хулиганами, которая выбросит на другую ветку и. . .	Модель ЗдрввоСохранения 7: больше работников, больше ресурсов. anaschu 08.04.2026 работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20% kYBz3eJf3jQ

@Dariys 0 / 0 / 0 Регистрация: 02.10.2009 Сообщений: 23

	найти номер максимального цисла 14.12.2009, 18:38. Показов 592. Ответов 7 Метки нет (Все метки) люди помогите пожалуйста нужно создать целочисленный массив потом найти в нем номер последнего максимального элемента (если он один или их несколько) 0

@кот Бегемот Платежеспособный зверь 8966 / 4389 / 1655 Регистрация: 28.10.2009 Сообщений: 11,647
	14.12.2009, 18:44
	to Тамила ваша программа находит номер первого, а не последнего максимума. измените знак в 14 строке на >= 1

@Dariys 0 / 0 / 0 Регистрация: 02.10.2009 Сообщений: 23
	14.12.2009, 18:51 [ТС]
	всем спасибо тему можно закрывать Тамила, спасибо тебе=) 0