PascalABC.NET:
Задание 3
begin
var a := ReadArrInteger(10);
print(a.Count(x -> x < 0));
end.
Пример ввода:
-1 -2 1 2 3 4 5 6 7 8
Пример вывода:
2
Задание 4
begin
var a := ReadArrInteger(10);
(a[0], a[a.Length - 1]) := (a[a.Length - 1], a[0]);
a.Print
end.
Пример ввода:
-1 -2 1 2 3 4 5 6 7 8
Пример вывода:
8 -2 1 2 3 4 5 6 7 -1
Задание 5
begin
var a := ReadArrReal(10);
print(a.Count(x -> x <= 0) = 0)</p>
end.
Пример ввода:
-1.5 -2.5 1 2 3 4 5 6 7 8.5
Пример вывода:
False