Напишите программу: вводим с клавиатуры массив состоящий из 5 элементов выводим массив в строчку считаем сумму отрицательных нечётных

Program massiv;

Const n=100;

Var a:array[1..n] of integer;

   i,s:integer;

Begin

s:=0;

For i:=1 to n do

Begin

 a[i]:=i*i;

 Write(a[i]:6);

 s:=s+a[i];

end;

WriteLn;

Write('Сумма=',s);

end.

Объяснение:

begin

 var a := ReadArrInteger(5);

 a.Println.Where(p -> (p < 0) and p.IsOdd).Sum.Println

end.

Пример прилагается.