Turbo Pascal

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

Войти

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

Другие темы раздела
Turbo Pascal Напишите программу, которая вычисляет среднюю за неделю температуру воздуха. Исходные данные вводятся с клавиатуры Пример выходных данных: Введите температуру Понедельник>> 12 Вторник>> 10 Среда>> 16 Четверг>> 18 Пятница>> 17 Суббота>> 16 Воскресенье>> 14 https://www.cyberforum.ru/ turbo-pascal/ thread818820.html	Треугольник стирает фон Turbo Pascal в общем нужна помощь, нужно сделать,чтобы треугольник перестал стирать фон. вот программа: uses crt,graph; var gd,gm,a,ye,xe,col,xs,ys:integer; procedure Treug(x,y,c,a:integer); var x1,y1,x2,y2,x3,y3:integer; begin x1:=x; y1:=y-a; x2:=x-round(a*cos(pi/6));
Turbo Pascal Найти массив, получающийся из заданного, путем перестановкой строк https://www.cyberforum.ru/ turbo-pascal/ thread818753.html Дан двумерный массив размерностью 6х9. Найти массив, получающийся из данного, путем перестановкой строк - первой и последней, второй с предпоследней и т.д. Помогите с задачей, пожалуйста. Я не знаю как сделать перестановку строк.	Turbo Pascal Сколько студентов живет на улице Самарской Опишите, используя структуру записи, данные о студентах. Параметры описания: фамилия, улица, дом, квартира. Составьте программу, позволяющую определить, сколько студентов живет на улице Самарской, а также выводящую на экран список студентов, проживающих на этой улице в доме №25 https://www.cyberforum.ru/ turbo-pascal/ thread818746.html
Составьте программу,выделяющую из множества целых чисел 1.20 Turbo Pascal Составьте программу,выделяющую из множества целых чисел 1..20: а)множества чисел,делящихся на 5 без остатка; б)множество чисел, делящихся без остатка на 2 или на 3	Turbo Pascal Есть ли в слове X звонкие согласные https://www.cyberforum.ru/ turbo-pascal/ thread818737.html (21) Составьте программу, позволяющую выяснить, есть ли в слове X звонкие согласные
Turbo Pascal Вычеркнуть из слова X глухие согласные буквы https://www.cyberforum.ru/ turbo-pascal/ thread818735.html (21) Составьте программу, вычеркивающую из слова X глухие согласные буквы	Turbo Pascal Генерация массива по правилу (20) Составьте программу, генерирующую одномерный массив, каждый элемент которого равен сумме соответствующего столбца двумерного массива A(N,N)
Turbo Pascal программа, меняющая местами значения элем. массива Составить программу,меняющую местами значения элементов массива А(N,N) симметрично относительно побочной диагонали. https://www.cyberforum.ru/ turbo-pascal/ thread818726.html	Turbo Pascal Получить все самые длинные слова в тексте Дана строка, состоящая из слов, разделенных пробелами. Получить все самые длинные слова в тексте https://www.cyberforum.ru/ turbo-pascal/ thread818692.html
Turbo Pascal Компьюторное моделирование физических явлений Кто сможет написать прогу Очень нучно Задача В результате измерений получена следующая выборка характеристик реаль- ного газа. №/№ Р, атм. V, см3/ град ⋅моль Т, °К 1 33 500 273 2 43 500 323 3 45 600 373	Turbo Pascal по заданным числам а1, b1,c1 и a2,b2,c2 и a3,b3,c3 - стороны трех треугольников https://www.cyberforum.ru/ turbo-pascal/ thread818639.html по заданным числам а1, b1,c1 и a2,b2,c2 и a3,b3,c3 - стороны трех треугольников. найти : а) значение синуса каждого угла; б)наибольшее и наименьшее значение из найденных в пункте (а) девяти величин

StrelokCj

218 / 50 / 52

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

Сообщений: 305

26.03.2013, 14:19

Определите, сколько элементов массива имеют максимальное значение - Turbo Pascal - Ответ 4311829

26.03.2013, 14:19. Показов 15779. Ответов 7

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

Ответ

Если сначала максимум искать в массиве а потом искать его количество, то он скорее всего будет равен одному, смотря конечно что вводить или что сгенерируется, и каким образом генерировать массив, рандомно или вручную.

Добавлено через 2 минуты

Pascal

uses crt;
const n=10;
var i,max,s:integer;
a:array[1..n] of integer;
begin
clrscr;
writeln('Vvedite elementy massiva');
for i:=1 to n do
    readln(a[i]);
max:=a[1];
for i:=1 to n do
    if (a[i]>=max) then max:=a[i];
for i:=1 to n do
    if (a[i]=max) then s:=s+1;
write('Kol-vo max elementov = ',s);
readkey;
end.

вариант с неизвестным максимумом.

Вернуться к обсуждению:
Определите, сколько элементов массива имеют максимальное значение Turbo Pascal

Следующий ответ

Заказать работу у эксперта

Programming

Эксперт

39485 / 9562 / 3019

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

Сообщений: 41,671

Блог

26.03.2013, 14:19

Готовые ответы и решения:

Найти максимальное значение из элементов массива, которые имеют нечетные номера
Помогите с решением: В массиве вещественных чисел 30 элементов. Найти максимальное значение из...

Двумерные массивы. Подсчитать, сколько элементов массива имеют значение 4
Помогите пожалуйста с задачами! 1. Подсчитать сколько элементов двумерного массива имеют значение...

Найти максимальное значение среди элементов массива, которые имеют четное значение и делятся на 7
Дан целочисленный массив из n элементов. Элементы массива могут принимать целые значения от 55 до...

Найти максимальное значение среди элементов массива, которые имеют четное значение и делятся на 3
Дан целочисленный массив из n элементов. Элементы массива могут принимать целые значения от 55 до...

	26.03.2013, 14:19

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

inter-admin

Эксперт

29715 / 6470 / 2152

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

Сообщений: 28,500

Блог

26.03.2013, 14:19

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

Определите, сколько раз в файле повторяетсяся максимальное значение
Пусть дан файл вещественных чисел. Определите, сколько раз в нем повторяется максимальное значение.

Определите, сколько строк файла имеют длину, большую, равную и меньшую, чем заданное значение
Пусть дан текстовый файл. Определите, сколько строк файла имеют длину, большую, равную и меньшую,...

Найти максимальное значение среди элементов массива, которые делят максимальное значение без остатка
Дан целочисленный массив из n элементов. Элементы могут принимать целые значения от 1 до 500....

определить, сколько его элементов имеют значение меньше чем 0,25
Дан массив А (5;4) определить, сколько его элементов имеют значение меньше чем 0,25 uses crt; ...

Новые блоги и статьи
Алгоритмика hw_wired 28.01.2025 Введение: Основы алгоритмики и её роль в информатике В современном мире программирование и алгоритмическое мышление стали неотъемлемой частью образования и профессиональной деятельности. . . .	Информационное моделирование hw_wired 28.01.2025 Введение в информационное моделирование В современном мире информационное моделирование стало неотъемлемой частью научной, образовательной и профессиональной деятельности. Это мощный инструмент. . .	Объекты и их имена hw_wired 28.01.2025 Введение: Основы объектного подхода и их роль в информатике В современном мире информационных технологий объектный подход стал фундаментальным принципом организации и обработки информации. Этот. . .	Элементы алгоритмизации hw_wired 28.01.2025 Основы алгоритмизации В современном мире алгоритмы играют фундаментальную роль в развитии информационных технологий и программирования. Понимание основ алгоритмизации является ключевым элементом в. . .	Человек и информация hw_wired 28.01.2025 Введение: роль информации в познании мира В современном мире информация играет фундаментальную роль в процессе познания окружающей действительности. Она представляет собой совокупность сведений об. . .	Компьютер и информация hw_wired 28.01.2025 Эволюция вычислительных машин История развития вычислительной техники начинается задолго до появления первых электронных устройств. Человечество всегда стремилось упростить процесс вычислений и. . .
Информационные технологии hw_wired 28.01.2025 Введение в современные технологии работы с информацией В современном мире информационные технологии стали неотъемлемой частью практически всех сфер человеческой деятельности. Они существенно. . .	Информация вокруг нас hw_wired 28.01.2025 Основные понятия информации В современном мире понятие информации является фундаментальным и охватывает практически все сферы человеческой деятельности. Информация представляет собой совокупность. . .	Компьютер для начинающих hw_wired 28.01.2025 Введение в мир компьютерных технологий В современном мире информация стала одним из важнейших ресурсов человечества, определяющим развитие общества и технологий. Наша жизнь неразрывно связана с. . .	[golang] 189. Rotate Array alhaos 28.01.2025 Повороты рукоятки, целочисленный слайс нужно сдвинуть на целое положительное число. Мне очень нравится решение на GO / / https:/ / leetcode. com/ studyplan/ top-interview-150/ package topInterview . . .	КуМир: решение задач на матрицы bytestream 28.01.2025 КуМир представляет собой среду для обучения программированию, которая включает в себя мощные инструменты для работы с матрицами. Матрица в программировании - это двумерный массив, состоящий из. . .	КуМир: решение задач на строки bytestream 28.01.2025 В системе программирования КуМир работа со строковыми данными является одним из важнейших аспектов создания программ. Строки представляют собой последовательности символов, заключенные в кавычки,. . .

Наверх