РЕШИТЕ ПОЖАЛУЙСТА!!! ОЧЕНЬ НАДО!Вводится 100 чисел. Найти количество чисел, равных...

Question

РЕШИТЕ ПОЖАЛУЙСТА!!! ОЧЕНЬ НАДО!Вводится 100 чисел. Найти количество чисел, равных максимальному и количество чисел, равных минимальному. Паскаль

Answer 1

PascalABC.NET 3.4.2, сборка 1884 от 24.11.2018

Внимание! Если программа не работает, обновите версию!

begin

 var a := ReadArrInteger(100);

 var (min, max) := (a.Min, a.Max);

 Writeln('Чисел, равных минимальному: ', a.Where(t -> t = min).Count);

 Writeln('Чисел, равных максимальному: ', a.Where(t -> t = max).Count)

end.

---

Comments

нужно более подробно( у меня есть решение, но оно выдает ошибку, но если по отдельности искать, то находит): var max,i,s,min,a,b,k,f: integer;begink:=0;max:=-32000;min:=32000;f:=0;for i:=1 to 10 dobeginread(a);if a>max thenbeginmax:=a;k:=1;endelseif a=max thenk:=k+1;read(b);if bbeginmin:=b;f:=1;endelseif b=min thenf:=f+1;end;writeln(k,' ',f);end.

---

не ошибку, просто ничего не выдает

---

нужно более подробно( - это совершенно некорректная фраза. Вы привели код, написанный просто в ином стиле. Но если Вам нужен именно такой, об этом надо было сказать в вопросе. а не после получения ответа.