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

@censored228 · Регистрация: 11.06.2013

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

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

@Kordn · 13.06.2013, 20:39

Pascal

const
  n = 10;
 
var
  a: array[1..n] of integer;
  max, min, maxc, minc: integer;
 
begin
  for var i := 1 to n do
    read(a[i]);
  max := a[1];
  min := a[1];
  for var i := 2 to n do
    if a[i] > max then max := a[i]
    else if a[i] < min then min := a[i];
  for var i := 1 to n do
    if a[i] = max then inc(maxc)
    else if a[i] = min then inc(minc);
  writeln('Максимальное число ', max, ' встречается ', maxc, ' раз');
  writeln('Минимальное число ', min, ' встречается ', minc, ' раз');
end.

@censored228 0 / 0 / 0 Регистрация: 11.06.2013 Сообщений: 12
		1
	Определить, сколько раз в последовательности встречается максимальное и минимальное 13.06.2013, 11:55. Показов 1968. Ответов 1 Метки нет (Все метки) Даны целые числа s1, s2,... sn. Определить сколько раз в последовательности встречается максимальное и минимальное (в паскаль) 0

Опции темы

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

Решение