Предмет: Информатика,
автор: pordonemafriend
РЕШИТЕ ПОЖАЛУЙСТА!!! ОЧЕНЬ НАДО!
Вводится 100 чисел. Найти количество чисел, равных максимальному и количество чисел, равных минимальному. Паскаль
Ответы
Автор ответа:
0
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.
Приложения:
не ошибку, просто ничего не выдает
нужно более подробно( - это совершенно некорректная фраза. Вы привели код, написанный просто в ином стиле. Но если Вам нужен именно такой, об этом надо было сказать в вопросе. а не после получения ответа.
Похожие вопросы
Предмет: Литература,
автор: shevchuk07
Предмет: Математика,
автор: kostik2008b
Предмет: История,
автор: 15d57p5
Предмет: Математика,
автор: Аноним
Предмет: Алгебра,
автор: Аннабелла26
begin
k:=0;
max:=-32000;
min:=32000;
f:=0;
for i:=1 to 10 do
begin
read(a);
if a>max then
begin
max:=a;
k:=1;
end
else
if a=max then
k:=k+1;
read(b);
if bbegin
min:=b;
f:=1;
end
else
if b=min then
f:=f+1;
end;
writeln(k,' ',f);
end.