в массиве из 10 чисел с плавающей точкой найти кол-во положительных и кол-во отрицательных чисел (Паскаль)
Ответы на вопрос
Ответил Аноним
0
// PascalABC.NET 3.2, сборка 1379 от 21.01.2017
// Внимание! Если программа не работает, обновите версию!
begin
var n:=ReadInteger('n=');
var a:=ArrRandom(n,-9900,9900).Select(x->x/100); a.Println;
Writeln('Количество отрицательных элементов ',a.Where(x->x<0).Count);
Writeln('Количество положительных элементов ',a.Where(x->x>0).Count)
end.
Пример
n= 9
-6.69 -71.7 -15.46 -23.53 51.7 2.86 -81.88 70.93 56.41
Количество отрицательных элементов 5
Количество положительных элементов 4
// Внимание! Если программа не работает, обновите версию!
begin
var n:=ReadInteger('n=');
var a:=ArrRandom(n,-9900,9900).Select(x->x/100); a.Println;
Writeln('Количество отрицательных элементов ',a.Where(x->x<0).Count);
Writeln('Количество положительных элементов ',a.Where(x->x>0).Count)
end.
Пример
n= 9
-6.69 -71.7 -15.46 -23.53 51.7 2.86 -81.88 70.93 56.41
Количество отрицательных элементов 5
Количество положительных элементов 4
Новые вопросы