Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
0 / 0 / 0
Регистрация: 08.04.2022
Сообщений: 11

Максимальное число из n чисел

08.04.2022, 14:04. Показов 350. Ответов 2

Студворк — интернет-сервис помощи студентам
Как получить максимальное число из n чисел?

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
program FHD;
var
   i, j, k, d, max: integer;
   s : string;
   c : char;
begin 
  readln(s);
  d := length(s);
  k := length(s);
  for j:= 1 to d-1 do
  begin
    c := s[k];
    for i := k - 1 downto 1 do
      s[i + 1] := s[i];
    s[1] := c;
    writeln(s);
  end;
end.
0
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
08.04.2022, 14:04
Ответы с готовыми решениями:

Последовательно вводится N целых чисел. Найти минимальное и максимальное число из введеных чисел
Последовательно вводится N целых чисел. Найти минимальное и максимальное число из введеных чисел.

Последовательность вводится N целых чисел. Найдите минимальное и максимальное число из введенных чисел
Последовательность вводится N целых чисел. Найдите минимальное и максимальное число из введенных чисел.

Дано целое число N и набор из N целых чисел. Найти максимальное количество нечетных чисел в наборе, идущих подряд
Дано целое число N и набор из N целых чисел. Найти максимальное количество нечетных чисел в наборе, идущих подряд. Если нечетные числа в...

2
 Аватар для JuriiMW
5095 / 2661 / 2355
Регистрация: 10.12.2014
Сообщений: 10,060
11.04.2022, 06:31
А к чему нижеприведённый код?
В нём нет ни каких n…
Там даже не с числами идёт работа, а со строками.
0
Модератор
Эксперт Pascal/DelphiЭксперт NIX
 Аватар для bormant
7816 / 4635 / 2837
Регистрация: 22.11.2013
Сообщений: 13,158
Записей в блоге: 1
11.04.2022, 08:16
Цитата Сообщение от JuriiMW Посмотреть сообщение
к чему нижеприведённый код?
Хотел пролечить, но залетел.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
11.04.2022, 08:16
Помогаю со студенческими работами здесь

Найти максимальное число из n вводимых с клавиатуры чисел.
1. Найти максимальное число из n вводимых с клавиатуры чисел.

Среди чисел массива, встречающихся минимальное число раз, найти максимальное
Дан массив А из N элементов (0<N<1000;0<A<10000). Среди чисел массива, встречающихся минимальное число раз, найти максимальное. Помогите,...

Напишите программу, которая в последовательности натуральных чисел определяет максимальное число, оканчивающееся на 3
Напишите программу, которая в последовательности натуральных чисел определяет максимальное число, оканчивающееся на 3. Программа получает...

Из 3 натуральных чисел выбрать число в котором заданная цифра встречается максимальное количество раз
Помогите написать программу с помощью процедуры. Из 3 натуральных чисел выбрать число в котором заданная цифра встречается максимальное...

Дано линейный массив действительных чисел. Подсчитать, сколько в массиве встречается максимальное число
Дано линейный массив действительных чисел. Подсчитать, сколько в массиве встречается максимальное число.


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

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Новые блоги и статьи
SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D
8Observer8 04.03.2026
Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .
SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий
8Observer8 02.03.2026
Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11680&d=1772460536 Одним из. . .
Реалии
Hrethgir 01.03.2026
Нет, я не закончил до сих пор симулятор. Эта задача сложнее. Не получилось уйти в плавсостав, но оно и к лучшему, возможно. Точнее получалось - но сварщиком в палубную команду, а это значит, в моём. . .
Ритм жизни
kumehtar 27.02.2026
Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .
SDL3 для Web (WebAssembly): Сборка библиотек: SDL3, Box2D, FreeType, SDL3_ttf, SDL3_mixer и SDL3_image из исходников с помощью CMake и Emscripten
8Observer8 27.02.2026
Недавно вышла версия 3. 4. 2 библиотеки SDL3. На странице официальной релиза доступны исходники, готовые DLL (для x86, x64, arm64), а также библиотеки для разработки под Android, MinGW и Visual Studio. . . .
SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами
8Observer8 20.02.2026
Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .
Конвертировать закладки radiotray-ng в m3u-плейлист
damix 19.02.2026
Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .
Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI
Eddy_Em 18.02.2026
Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru