Форум программистов, компьютерный форум, киберфорум
PascalABC.NET
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 5.00/4: Рейтинг темы: голосов - 4, средняя оценка - 5.00
0 / 0 / 0
Регистрация: 20.01.2019
Сообщений: 5

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

22.04.2019, 15:50. Показов 751. Ответов 3
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
сформировать исходный вектор, найти максимальный элемент. если он имеет чётное значение, то осуществить в векторе циклический сдвиг влево на 2 элемента.
иначе - отсортировать вектор по убыванию.
0
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
22.04.2019, 15:50
Ответы с готовыми решениями:

Найти последний максимальный элемент вектора, в котором максимально 50 вещественных элементов
Найти последний максимальный элемент вектора, в котором максимально 50 вещественных элементов.

Найти с помощью рекурсии максимальный элемент вектора
Необходимо найти с помощью рекурсии максимальный элемент вектора V, n-размерности.

Найти максимальный элемент матрицы в строках где максимальный встречается раньше минимального.
Подскажите как это можно осуществить: Дана вещественная матрица A размером MxN. Найти максимальное значение среди всех элементов тех...

3
0 / 0 / 0
Регистрация: 20.01.2019
Сообщений: 5
22.04.2019, 21:33  [ТС]
написала текст программы вот так, но он не проходит, не могу найти ошибку. помогите, пожалуйста. думаю, ошибка где-то в циклическом сдвиге.

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
29
30
31
32
33
34
35
36
37
38
39
program d9;
var a:array[1..100] of integer;
i,j,n,d,p,max:integer;
begin
write('vvedi kol-vo chisel: ');
for i:=1 to n do
read(a[i]);
end;
max:=a[1];
for i:=1 to n do
if a[i]>max then
begin
max:=a[i];
p:=i;
end;
if max mod 2=0 then
begin
writeln('max chet');
for j:=1 to n do
d:=a[j];
a[j-1]:=a[j];
a[n]:=d;
end
else
begin
writeln('max ne chet');
for i:=1 to n-1 do
for j:=1 to n-1 do
if a[j]<a[j+1] then
begin
d:=a[j];
a[j]:=a[j+1];
a[j+1]:=d;
end;
writeln('vector posle izmenenia');
for i:=1 to n do
write(a[i],' ');
end;
end.
0
 Аватар для Sun Serega
2355 / 1458 / 526
Регистрация: 07.04.2017
Сообщений: 4,798
22.04.2019, 22:47
Найдите при вводе каких данных получается не тот ответ. Когда найдёте - используйте отладку (F8) чтоб найти где производится неправильное действие.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
22.04.2019, 22:47
Помогаю со студенческими работами здесь

Найти минимальный и максимальный элементы вектора
дан вектор b а)найти минимальный и максимальный элементы вектора. б)поменять местами максимальный и минимальный элементы. в)получить...

Найти минимальный и максимальный элементы заданного вектора
Помогите написать программы к задачам для экзамена, не успеваю и многие не знаю как делать :с спасибо заранее. Задачи: 2. Найти...

Найти максимальный элемент каждого столбца и минимальный элемент каждой строки
В матрице размером NxN найти макс элемент каждого столбца и мин элемент каждой строки. Полученные числа вывести в двух одномерных массивах....

Найти минимальный четный элемент, максимальный отрицательный элемент на четной позиции
Найти минимальный четный элемент, максимальный отрицательный элемент на четной позиции. Сумму между ними

Найти минимальный элемент из элем массива с нечетными номерами и максимальный элемент элементов с четными
4) Одномерный массив, состоящий из n элементов, заполняется введенными с клавиатуры целыми числами. Найти минимальный элемент из его...


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

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Новые блоги и статьи
Отправка уведомления на почту при изменении наименования справочника
Maks 24.03.2026
Программная отправка письма электронной почты на примере изменения наименования типового справочника "Склады" в конфигурации БП3. Перед реализацией необходимо выполнить настройку системной учетной. . .
модель ЗдравоСохранения 5. Меньше увольнений- больше дохода!
anaschu 24.03.2026
Теперь система здравосохранения уменьшает количество увольнений. 9TO2GP2bpX4 a42b81fb172ffc12ca589c7898261ccb/ https:/ / rutube. ru/ video/ a42b81fb172ffc12ca589c7898261ccb/ Слева синяя линия -. . .
Midnight Chicago Blues
kumehtar 24.03.2026
Такой Midnight Chicago Blues, знаешь?. . Когда вечерние улицы становятся ночными, а ты не можешь уснуть. Ты идёшь в любимый старый бар, и бармен наливает тебе виски. Ты смотришь на пролетающие. . .
SDL3 для Desktop (MinGW): Вывод текста со шрифтом TTF с помощью библиотеки SDL3_ttf на Си и C++
8Observer8 24.03.2026
Содержание блога Финальные проекты на Си и на C++: finish-text-sdl3-c. zip finish-text-sdl3-cpp. zip
Жизнь в неопределённости
kumehtar 23.03.2026
Жизнь — это постоянное существование в неопределённости. Например, даже если у тебя есть список дел, невозможно дойти до точки, где всё окончательно завершено и больше ничего не осталось. В принципе,. . .
Модель здравоСохранения: работники работают быстрее после её введения.
anaschu 23.03.2026
geJalZw1fLo Корпорация до введения программа здравоохранения имела много невыполненных работниками заданий, после введения программы количество заданий выросло. Но на выплатах по больничным это. . .
Контроль уникальности заводского номера
Maks 23.03.2026
Алгоритм контроля уникальности заводского (или серийного) номера на примере нетипового документа выдачи шин для спецтехники с табличной частью, разработанного в конфигурации КА2. Данные берутся из. . .
Хочу заставить корпорации вкладываться в здоровье сотрудников: делаю мат модель здравосохранения
anaschu 22.03.2026
e7EYtONaj8Y Z4Tv2zpXVVo https:/ / github. com/ shumilovas/ med2. git
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru