дан массив из 10 элементов , значение которых находится в диапазоне [-10;10]. Определить кол-во положительных и отрицательных
Ответы на вопрос
Ответил Аноним
0
// PascalABC.NET 3.3, сборка 1541 от 29.09.2017
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(10,-10,10); a.Println;
Writeln('Кол-во положительных- ',a.Where(x->x>0).Count);
Writeln('Кол-во отрицательных- ',a.Where(x->x<0).Count);
end.
Пример
-10 9 8 5 3 -10 0 4 -4 -4
Кол-во положительных- 5
Кол-во отрицательных- 4
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(10,-10,10); a.Println;
Writeln('Кол-во положительных- ',a.Where(x->x>0).Count);
Writeln('Кол-во отрицательных- ',a.Where(x->x<0).Count);
end.
Пример
-10 9 8 5 3 -10 0 4 -4 -4
Кол-во положительных- 5
Кол-во отрицательных- 4
Ответил avizor123
0
это точный ответ?
Ответил Аноним
0
Как может быть при написании программы "точный ответ"? Это один из вариантов написания программы, которая делает то, что Вы указали в условии и делает правильно.
Ответил avizor123
0
всё,понял,спасибо
Новые вопросы