Определить сколько чисел последовательности а1, а2,...аn принимает наибольшее значение

23.10.2013, 17:49. **Показов** 2019. **Ответов** 1

Студворк — интернет-сервис помощи студентам

Даны целое n>0 и целые числа а1, а2,...аn. Определить сколько чисел последовательности а1, а2,...аn принимает наибольшее значение.Например, в последовательности 2,5,7,4,7,6,0 наибольшее значение 7 встречается 2 раза.

@ildwine · 24.10.2013, 19:56

Pascal

var
  a : array[1..100] of integer;
  n, i, k : byte;
  max : integer;
begin
  k := 0;
  max := -32768;
  repeat
    write('введите n:');
    readln(n)
  until (n > 0) and (n <= 100);  
  {вводим последовательность и определяем какой элемент наибольший}
  for i := 1 to n do
  begin
    write('введите ', i, ' элемент последовательности: ');
    readln(a[i]);
    if a[i] >= max then max := a[i]    
  end;
  {выводим последовательность и считаем количество тех максимальных}
  for i := 1 to n do write(a[i]:4);
  for i := 1 to n do
    if a[i] = max then inc(k);
  writeln;
  writeln('максимальный элемент ', max, ' встречается ', k, ' раз');
  readln
end.

SkyNet56ru
		1
	Определить сколько чисел последовательности а1, а2,...аn принимает наибольшее значение 23.10.2013, 17:49. Показов 2019. Ответов 1 Метки нет (Все метки) Даны целое n>0 и целые числа а1, а2,...аn. Определить сколько чисел последовательности а1, а2,...аn принимает наибольшее значение.Например, в последовательности 2,5,7,4,7,6,0 наибольшее значение 7 встречается 2 раза.

Опции темы

Определить сколько чисел последовательности а1, а2,...аn принимает наибольшее значение

Решение