Найти максимальный элемент массива

@Просто Эндрю · Регистрация: 17.12.2009

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

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

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
program LAB;
type Mas=array[1..10] of integer;
var A:Mas;
    imax,i,n,ak,bk,max:integer;
begin
writeln('vvedite n');
read(n);
writeln('vvedite massiv');
for i:=1 to n do
read(A[i]);
writeln('vvedite ak and bk');
    readln(ak,bk);
    imax:=0;
    max:=0;
    repeat
    begin
    for i:=ak to bk do
    if (A[i]>max) and (max>0) then
       begin
       max:=A[i];
       imax:=i;
       end
    end;
    until max>bk;
writeln(imax);
readln;
end.

@New_Neznayka · 03.01.2010, 23:25

а что именно не работает ?

Добавлено через 9 минут
вроде выход из цикла неправильный

Delphi
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
program LAB;
type Mas=array[1..10] of integer;
var A:Mas;
    imax,i,n,ak,bk,max:integer;
begin
writeln('vvedite n');
read(n);
writeln('vvedite massiv');
for i:=1 to n do
read(A[i]);
writeln('vvedite ak and bk');
    readln(ak,bk);
    imax:=0;
    max:=0;
    repeat
    begin
    for i:=ak to bk do
    if (A[i]>max) and (max>0) then
       begin
       max:=A[i];
       imax:=i;
       end
    end;
    until i>=bk;
writeln(imax);
readln;
end.

@Puporev · 04.01.2010, 11:27

Pascal
1
2
3
4
5
6
7
8
9
10
repeat//убрать
    begin//убрать
    for i:=ak to bk do
    if (A[i]>max) and (max>0) then
       begin
       max:=A[i];
       imax:=i;
       end;
    end;//убрать
    until i>=bk;//убрать

Новые блоги и статьи Все статьи Все блоги /
Циклы for в Python py-thonny 17.03.2025 Существует множество ситуаций, когда нам нужно выполнить одно и то же действие несколько раз. Цикл for в Python — настоящий рабочий конь для большинства программистов. Если вам нужно пройтись по всем. . .	Предсказание ветвлений - путь к высокопроизводительному C++ NullReferenced 17.03.2025 В высокопроизводительном программировании на C++ каждый такт процессора на счету. Когда речь заходит о разработке систем с низкой задержкой — будь то высокочастотная торговля, обработка потоковых. . .	Паттерн CQRS в C# UnmanagedCoder 17.03.2025 Создание сложных корпоративных приложений часто требует нестандартных подходов к архитектуре. Один из таких подходов — паттерн CQRS (Command Query Responsibility Segregation), предлагающий простую,. . .	Паттерн Цепочка ответственности в C# UnmanagedCoder 17.03.2025 Цепочка ответственности — это поведенческий паттерн проектирования, который позволяет передавать запросы последовательно по цепочке потенциальных обработчиков, пока один из них не обработает запрос. . . .	Создаем микросервисы с NestJS, TCP и Typescript run.dev 17.03.2025 NestJS — фреймворк, который значительно упрощает создание серверных приложений на Node. js. Его прелесть в том, что он комбинирует концепции ООП, функционального программирования и предлагает. . .
Гексагональная архитектура со Spring Boot Javaican 17.03.2025 Если вы когда-нибудь сталкивались с ситуацией, когда внесение простых изменений в базу данных или пользовательский интерфейс заставляло вас переписывать весь код, то вы точно оцените элегантность. . .	Позиционирование Kafka Consumer и Seek-операции Javaican 17.03.2025 Что же такое Consumer Seek в Kafka? По сути, это API-метод, который позволяет программно указать, с какой позиции (offset) Consumer должен начать или продолжить чтение данных из партиции. Без этого. . .	Python NumPy: Лучшие практики и примеры py-thonny 17.03.2025 NumPy (Numerical Python) — одна из ключевых библиотек для научных вычислений в Python. Она превращает Python из просто удобного языка общего назначения в среду для проведения сложных математических. . .	Java Micronaut в Docker: контейнеризация с Maven и Jib Javaican 16.03.2025 Когда речь заходит о микросервисной архитектуре на Java, фреймворк Micronaut выделяется среди конкурентов. Он создан с учётом особенностей облачных сред и контейнеров, что делает его идеальным. . .	Управление зависимостями в Java: Сравнение Spring, Guice и Dagger 2 Javaican 16.03.2025 Инъекция зависимостей (Dependency Injection, DI) — один из фундаментальных паттернов проектирования, который радикально меняет подход к созданию гибких и тестируемых Java-приложений. Суть этого. . .

Опции темы