Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.67/6: Рейтинг темы: голосов - 6, средняя оценка - 4.67
0 / 0 / 0
Регистрация: 20.12.2016
Сообщений: 27

Исключить первый максимальный элемент массива

26.11.2017, 15:43. Показов 1236. Ответов 3
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
(Фотография удалена)
0
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
26.11.2017, 15:43
Ответы с готовыми решениями:

Дан массив целых чисел а1,…, аn. Исключить из массива первый четный элемент, следующий за максимальным.
Одномерный массив: Дан массив целых чисел а1,…, аn. Исключить из массива первый четный элемент, следующий за максимальным. ...

Поменять местами максимальный и первый элемент массива
Помогите решить задачку на Pascal: 1) Необходимо организовать ввод массива и произвести обработку массива (одномерного массива). Количество...

Найти первый максимальный элемент массива и заменить его нулем
Дан массив действительных чисел, среди которых есть равномерные. Найти первый максимальный элемент этого массива и заменить его нулем....

3
26.11.2017, 19:15
 Комментарий модератора 
Куяналекс, тексты заданий набирайте. Фотографии заданий запрещены.
0
0 / 0 / 0
Регистрация: 20.12.2016
Сообщений: 27
03.12.2017, 17:52  [ТС]
Дан массив из n элементов. Исключить первый максимальный элемент, т.е. сдвинуть все значения таблицы начиная с первого максимального, влево на 1 позицию. Значение последнего элемента таблицы не определено.
0
Модератор
10448 / 5739 / 3407
Регистрация: 17.08.2012
Сообщений: 17,458
04.12.2017, 01:07
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
const m = 20;
var a: array[1..m] of integer;
    i, n, imax: integer;
begin
  repeat
    write('Размер массива в диапазоне [1..', m, '] = ');
    readln(n)
  until n in [1..m];
  writeln('Введите элементы массива (целые числа):');
  for i := 1 to n do
    begin
      write('A[', i, '] = ');
      readln(a[i])
    end;
  imax := a[1];
  writeln('Исходный массив:');
  for i := 1 to n do
    begin
      write(' ', a[i]);
      if a[imax] < a[i] then imax := i
    end;
  writeln;
  writeln('Первый максимальный элемент: A[', imax, '] = ', a[imax]);
  dec(n);
  for i := imax to n do a[i] := a[i + 1];
  writeln('Массив с удалённым первым максимальным элементом:');
  for i := 1 to n do write(' ', a[i]);
  writeln;
  readln
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
04.12.2017, 01:07
Помогаю со студенческими работами здесь

Найти первый максимальный элемент массива и заменить его нулем
Составить программу на Паскале, содержащую минимум четыре подпрограммы. Дан одномерный массив, выполнить следующие действия: -найти...

Найти первый максимальный элемент и поменять его местами с первым элементом массива.
Дан одномерный массив А длиной М. Найти первый максимальный элемент и поменять его местами с первым элементом массива.

Из матрицы исключить строку и столбец, содержащие максимальный элемент
Составить программу, которая в задаваемом пользователем двумерном числовом массиве размеров n*n исключает строку и столбец, содержащие...

Исключить строку и столбец матрицы, на пересечении которых расположен максимальный элемент главной диагонали
Задана квадратная матрица. Исключить из неё строку и столбец, на пересечении которых расположен максимальный элемент главной диагонали.

Исключить из нее строку и столбец,на пересечении которых расположен максимальный элемент главной диагонали.
Двумерные массивы. Задание 2. В каждом варианте дан двумерный массив A из N строк и М столбцов.Если в задаче над элементами массива...


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

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Новые блоги и статьи
Сумматор с применением элементов трёх состояний.
Hrethgir 26.03.2026
Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .
Автозаполнение реквизитов при создании документа
Maks 26.03.2026
Код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере". Алгоритм проверки заполнения реализован для исключения перезаписи значения реквизита, которое может. . .
Команды "Заполнить" и "Очистить" на форме документа
Maks 26.03.2026
1. Команда формы "ЗаполнитьЗапчасти". На примере нетипового документа разработанного в конфигурации КА2. В качестве источника данных указан регистр накопления, в который записываются данные о. . .
Кому нужен AOT?
DevAlt 26.03.2026
Решил сделать простой ланчер Написал заготовку: dotnet new console --aot -o UrlHandler var items = args. Split(":"); var tag = items; var id = items; var executable = args;. . .
Отправка уведомления на почту при изменении наименования справочника
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
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru