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

@Zig · Регистрация: 29.02.2012

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

даны целые числа s1,s2,...sn . Определите сколько раз из них встречается максимальное!

@versa4e · 29.02.2012, 20:29

Pascal

var
  s,i,n,max,k:integer;
begin
  repeat
    write('n=');
    readln(n);
  until n>0;
  readln(max);
  k:=1;
  for i:=2 to n do
    begin
      readln(s);
      if s>max then
        begin
          max:=s;
          k:=1;
        end
      else if s=max then
        k:=k+1;
    end;
  write(k);
end.

@Севак · 29.02.2012, 20:34

Zig,

Pascal

uses crt;
var
a: array[1..10] of integer;
i,k,max: integer;
begin
max:=-32768;
for i:=1 to 10 do begin
write('a[',i,'] = ');
read(a[i]);
if a[i]>max then max:=a[i];
end;
for i:=1 to 10 do begin
if a[i]=max then inc(k);
end;
write('Максимальное число - ',max,', встречается ',k,' раз(a)!');
end.

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

Решение

Решение

@Zig 0 / 0 / 0 Регистрация: 29.02.2012 Сообщений: 20
		1
	Определить, сколько раз встречается максимальное число в последовательности 29.02.2012, 20:12. Показов 1883. Ответов 2 Метки нет (Все метки) даны целые числа s1,s2,...sn . Определите сколько раз из них встречается максимальное! 0

Опции темы