Question

Помогите номер 3,4,5 информатика

Answer 1

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)

end.

Пример ввода:

-1.5 -2.5 1 2 3 4 5 6 7 8.5

Пример вывода:

False