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

@ink777 · Регистрация: 24.09.2013

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

и если можно то с комментариями к программе

@Klo · 08.10.2013, 15:31

Pascal

uses crt;
var n,a,max,k,i: integer;
begin
readln(n);
readln(max);
k:=1;
for i:=2 to n do
    begin
    readln(a);
    if a=max then inc(k);
    if a>max then
       begin
       max:=a;
       k:=1;
       end;
    end;
writeln(k);
end.

@ink777 0 / 0 / 0 Регистрация: 24.09.2013 Сообщений: 11
		1
	Определить, сколько чисел последовательности принимает наибольшее значение 08.10.2013, 10:38. Показов 1574. Ответов 1 Метки нет (Все метки) и если можно то с комментариями к программе Миниатюры 0

	08.10.2013, 15:31

Опции темы

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

Решение