Массивы

22.12.2009, 02:41. Показов 399. Ответов 0

Метки нет (Все метки)

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

не работает прога.не выдаёт максимальный элемент.

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
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);
    readln(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];
       end
    end;
    until max>bk;
    imax:=i;
writeln(imax);
readln;
end.

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

cpp_developer

Эксперт

20123 / 5690 / 1417

Регистрация: 09.04.2010

Сообщений: 22,546

Блог

22.12.2009, 02:41

Ответы с готовыми решениями:

Даны массивы а и b. Получить новые массивы a и b, элементы которых вычисляются по правилу: ai=bi, bi= -ai
Даны массивы а и b, состоящие из n-элементов каждый. Получить новые массивы a и b, элементы которых вычисляются по правилу: ai=bi, bi=...

массивы
пожалуйста срочно помогите.отрицательные элементы массива заменить на сумму.вывести преобразованный массив.

Массивы
Пожалуйста помогите решить задачу.: Вывести элемент массива с нечётными номерами в порядке убывания номеров: АN, AN-2, AN-4, … , A1( где...

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.

raxper

Эксперт

30234 / 6612 / 1498

Регистрация: 28.12.2010

Сообщений: 21,154

Блог

22.12.2009, 02:41

Помогаю со студенческими работами здесь

Массивы
Program elem; uses crt; const n=12;m=10;p=120; type tvector=array of integer; var a:array of integer; ...

Массивы
Подскажите как в программе записать следующие строки? Определить с помощью FUNCTION для каждого массива сумму элементов с нечетными...

Массивы?
program lab8; uses crt; type mas=array of integer; procedure Massiv(var v:mas;x:byte;a,b,d:integer;c:char); var i:byte; begin ...

массивы
ребят послезавтра зачет я уже 2 дня ломаю голову над след. задачами а вам наверно делов на 5 минут.. 1 Массив вещественных чисел A(N)...

Массивы
Написать программу, которая заменяет все заглавные буквы строчными, а строчные – заглавными в заданной символьной строке. вот программа! ...

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

Или воспользуйтесь поиском по форуму:

Новые блоги и статьи Все статьи Все блоги /
Как я обхитрил таблицу Word Alexander-7 21.03.2026 Когда мигает курсор у внешнего края таблицы, и нам надо перейти на новую строку, а при нажатии Enter создается новый ряд таблицы с ячейками, то мы вместо нервных нажатий Энтеров мы пишем любые буквы. . .	Krabik - рыболовный бот для WoW 3.3.5a AmbA 21.03.2026 без регистрации и смс. Это не торговля, приложение не содержит рекламы. Выполняет свою непосредственную задачу - автоматизацию рыбалки в WoW - и ничего более. Однако если админы будут против -. . .	Программный отбор значений справочника Maks 21.03.2026 Установка программного отбора значений справочника "Сотрудники" из модуля формы документа. В качестве фильтра для отбора служит предопределенное значение перечислений. Процедура. . .	Переходник USB-CAN-GPIO Eddy_Em 20.03.2026 Достаточно давно на работе возникла необходимость в переходнике CAN-USB с гальваноразвязкой, оный и был разработан. Однако, все меня терзала совесть, что аж 48-ногий МК используется так тупо: просто. . .
Оттенки серого Argus19 18.03.2026 Оттенки серого Нашёл в интернете 3 прекрасных модуля: Модуль класса открытия диалога открытия/ сохранения файла на Win32 API; Модуль класса быстрого перекодирования цветного изображения в оттенки. . .	SDL3 для Desktop (MinGW): Рисуем цветные прямоугольники с помощью рисовальщика SDL3 на Си и C++ 8Observer8 17.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-rectangles-sdl3-c. zip finish-rectangles-sdl3-cpp. zip	Символические и жёсткие ссылки в Linux. algri14 15.03.2026 Существует два типа ссылок — символические и жёсткие. Ссылка в Linux — это запись в каталоге, которая может указывать либо на inode «файла-ИСТОЧНИКА», тогда это будет «жёсткая ссылка» (hard link),. . .	[Owen Logic] Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ФедосеевПавел 14.03.2026 Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ВВЕДЕНИЕ Выполняя задание на управление насосной группой заполнения резервуара,. . .

Наверх