Напишите программу, которая находит в массиве количество частей, одинаковых

Question

Напишите программу, которая находит в массиве количество частей, одинаковых

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

Входные данные
Первая строчка содержит размер массива N . Во второй строке через пробел задаются N чисел элементы массива. Гарантируется, что 0 lt; N 10000 .

Выходные данные
Программка обязана вывести два числа, разделив их пробелом: наибольший элемент массива и количество частей массива, равных максимальному.

Примеры
входные данные
6
1 2 3 2 3 3
выходные данные
3 3
пожалуйста на языке Pascal

Задать свой вопрос

Игорь
Информатика
2019-09-02 12:11:04
0
1

1 ответ

, оставишь ответ?

Имя:*

E-Mail:

Похожие вопросы

алтын куз мини сочинение. На казахском конечно)

Образуйте от имён существительных имена прилагательные.Напишите.Грусть-грустный,звезда-...,

Составьте две загадки,отгатки которых подскажут глаголы.Помогите пожалуйста!!!

2/3*(x+9)=1/6x+2Помогите завтра контрольная!!!

ЗРОБИТИ ЗВУКОВИЙ АНАЛЗ СЛОВА ДЖМЕЛИК

Какой из червяков более древний:бычий цепень либо дождевой червь? И почему?

сочинение о лете с поговорками

сумма чисел одинакова 15.одно слагаемое равно 5.чему равно другое слагаемое?

Мы знаем, что Костя родился с 12 по 16 декабря.

1) Произведите цепочку перевоплощений. Органическая химия 10 класс.метан этан хлорэтан бутан

Тимур Козка · Answer 1 · 2019-09-02 12:20:48+3:00

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] lt; 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.

О проекте

Напишите программу, которая находит в массиве количество частей, одинаковых

Добро пожаловать!