Question

Срочно нужна программа в Паскале!

1. Ввести массив а[1], а[2],..... а[n] целого типа и найти сумму квадратов всех элементов массива. Если она больше 100, то вывести ее на экран, в противном случае вывести на экран сам массив.

2. В одномерном массиве вещественных чисел вычислить сумму отицательных элементов, имеющих нечётные индексы.

Answer 1

===== PascalABC.NET =====

1.

begin

 var n := ReadInteger('n =');

 var a := ReadArrInteger('Вводи:', n);

 var s := a.Select(p -> p * p).Sum;

 if s > 100 then

   Println(s)

 else

   a.Println;

end.

2.

begin

 var n := ReadInteger('n =');

 var a := ReadArrReal('Вводи:', n);

 var (s, i) := (0.0, 0);

 while i <= n - 1 do

 begin

   if a[i] < 0 then

     s += a[i];

   i += 2

 end;

 Print(s)

end.