Определить количество элементов в заданном массиве, отличающихся от минимального на 5.
Определить количество элементов в заданном массиве, отличающихся от минимального на 5.
Гость
Ответ(ы) на вопрос:
Гость//Pascal ABC.NET 3.1 сборка 1256
Const
n=10;
Var
ar:array[1..n] of integer;
i,k,min:integer;
begin
min:=integer.MaxValue;
writeln('Array:');
for i:=1 to n do
begin
readln(ar[i]);
if ar[i]
Гость// PascalABC.NET 3.1, сборка 1256 от 21.06.2016
begin
var a:=ArrRandom(ReadInteger('n='),-10,10); a.Println;
var mn:=a.Min;
Writeln('Количество элементов, отличающихся от минимального на 5: ',
a.Where(x->(x-mn=5)).Count)
end.
Тестовое решение:
n= 15
5 9 -10 4 10 -2 -2 -5 6 -10 1 -5 -9 -1 -1
Количество элементов, отличающихся от минимального на 5: 2
Не нашли ответ?
Похожие вопросы