Дан файл целых чисел. Вывести его максимальный элемент - Turbo Pascal

Turbo Pascal

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Рейтинг 4.86/7:

@Nissan177 0 / 0 / 0 Регистрация: 28.06.2012 Сообщений: 7

	Дан файл целых чисел. Вывести его максимальный элемент 28.06.2012, 15:50. Показов 1492. Ответов 1 Метки нет (Все метки) Дан файл целых чисел. Вывести его максимальный элемент. 0

Лучшие ответы (1)

Сообщение: #3218647

IT_Exp

Эксперт

34794 / 4073 / 2104

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

Сообщений: 32,602

Блог

28.06.2012, 15:50

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

Дан массив целых чисел. Найти максимальный и минимальный элемент, вывести на экран
Дан массив целых чисел. Найти максимальный и минимальный элемент, вывести на экран.

Дан массив целых чисел. Найти максимальный элемент и его номер.
Дан массив целых чисел. Найти максимальный элемент и его номер.

Дан массив целых чисел. Найти В этом массиве минимальный элемент т и максимальный элемент м. Вывести сумму элементов от минимального до максимального
Дан массив целых чисел. Найти В этом массиве минимальный элемент т и максимальный элемент м. Вывести сумму элементов от минимального до...

ЛетающийЕнот

88 / 67 / 37

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

Сообщений: 161

28.06.2012, 15:54

Сообщение было отмечено Nissan177 как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
var f : file of integer; i,m : integer; n : string[80];
begin
 readln(n);
 assign(f,n);
 reset(f);
 read(f,i); m:=i;
 while not eof(f) do
  begin
   read(f,i);
   if i>m then
    m:=i;
  end;
 writeln(m);
 close(f);
end.

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

BasicMan

Эксперт

29316 / 5623 / 2384

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

Сообщений: 30,364

Блог

28.06.2012, 15:54

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

Дан файл целых чисел.Найти его первый локальный минимум (элемент который меньше своих соседей)
Дан файл целых чисел.Найти его первый локальный минимум (элемент который меньше своих соседей)

Считать 10 целых чисел с файла 1.txt и записать в файл 2.txt максимальный элемент и его индекс
нужно считать 10 целых чисел с файла 1.txt и записать в файл 2.txt максимальный элемент и его индекс я начала делать, но в файл 2.txt...

Дан файл целых чисел, содержащий не менее четырех элементов. Вывести его нулевой, первый, предпоследний и последний элем
Дан файл целых чисел, содержащий не менее четырех элементов. Вывести его нулевой, первый, предпоследний и последний элементы.

Дан массив целых чисел, сколько раз в нем встречается максимальный элемент..
:cry: плиз....спасайте.....пол дня пытаюсь решыть задачю...и все время она незапускается.....Дан масив целых чисел, сколько раз в ньом...

Дан массив из N целых чисел. Поменять местами максимальный и первый элемент массива.
Помогите решить.... Дан массив из N целых чисел. Поменять местами максимальный и первый элемент массива.

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

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

Новые блоги и статьи Все статьи Все блоги /
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. На борту пять. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .

Наверх