Напишите программу, которая находит в массиве количество элементов, равных максимальному. Входные данные Первая строка содержит размер массива N . Во второй строке через пробел задаются N чисел – элементы массива. Гарантируется, что 0 < N 10000 . Выходные данные Программа должна вывести два числа, разделив их пробелом: максимальный элемент массива и количество элементов массива, равных максимальному. Примеры входные данные 6 1 2 3 2 3 3 выходные данные 3 3 пожалуйста на языке Pascal
пробел задаются N чисел – элементы массива. Гарантируется, что 0 < N 10000 . Выходные данные Программа должна вывести два числа, разделив их пробелом: максимальный элемент массива и количество элементов массива, равных максимальному. Примеры входные данные 6 1 2 3 2 3 3 выходные данные 3 3 пожалуйста на языке Pascal
Var arr: array[0..1000] of integer; var n, i, max, max_num: integer; begin readln(n); for i:= 0 to n do read(arr[i]); max_num := 0; max:= arr[0]; for i:= 1 to n do if arr[i] < max then max:= arr[i]; for i:=0 to n do if arr[i] = max then max_num:=max_num + 1 ; writeln(max, , max_num); end.
Также наши пользователи интересуются:
Напишите о своих любимых игрушках.Включите в текст предложения,разные по цели высказывания,предложения с однородными членами и обращениями к адресату речи,для которого текст п СРОЧНО вопросы к тексту!!!!!!!!!!10 вопросов Summer was coming. The Parkers were planning their rest. Mr Parker worked really hard this year and made quite a lot of money. O
⭐⭐⭐⭐⭐ Лучший ответ на вопрос «Напишите программу, которая находит в массиве количество элементов, равных максимальному. Входные данные Первая строка содержит размер массива N . Во второй строке через » от пользователя ALINA NIKITENKO в разделе Разное. Задавайте вопросы и делитесь своими знаниями.
Открой этот вопрос на телефоне - включи камеру и наведи на QR-код!