1.Написать программу, которая вычисляет сумму отрицательных элементов одномерного массива. массив из 15 целых элементов.
2. Написать программу которая вычисляет сумму положительных элементов одномерного массива. массив из 12 вещ элементов
паскаль, прошу вас, помогите​

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

begin

 // 1

 var a := ArrRandom(15, -99, 99);

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

 Writeln; // только как разделитель между заданиями

 // 2

 var b := ArrRandomReal(12, -99, 99);

 b.Println.Where(p -> p > 0).Sum.Println

end.

Ответ:

Програма 1:

Program p1;  

Type

  mass=array [1..15] of integer;  

Var  

  l:mass;  

  i,k1:integer;  

Begin  

 k1:=0;  

 For i:=1 to 15 do  

   Begin  

     WriteLn ('l[',i,']=?');  

     ReadLn (l[i]);  

     if l[i]<0 then k1:=k1+l[i];

   end;  

   writeln('Сума отрицательных элементов: ',k1)

end.

Програма 2:

Program p2;  

Type  

  mass=array [1..12] of real;  

Var  

  k1:real;  

  l:mass;  

  i:integer;  

Begin  

 k1:=0;  

 For i:=1 to 12 do  

   Begin  

     WriteLn ('l[',i,']=?');  

     ReadLn (l[i]);  

     if l[i]>0 then k1:=k1+l[i]

   end;  

   writeln('сумма положительных элементов: ',k1:1:2)

end.

Объяснение:

Программа названые программы(не должно начинаться на символ, только англ. алфавит)

Тип

Объявление массива

Var-переменные

Объявление переменных

Начало программы

Присвоение k1:=0 (k1-это переменная которая будет обозначать суму)

Цикл заполнения массива

Вывод на экран l[i]=? (i будет разное, то-есть это разная строка массива)

Ввод с клавиатуры

Если l[i] менее ноля добавляет это к сумме

Завершение цикла

Вывод на экран суммы

Конец программы

Во второй программы идентично кроме типа массиву, количество инерций цикла и там цифры больше ноля