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.

Const
      CSize1=7;
      CSize2=6;
      CSize3=5;
type TMas=array[,] of integer;   
var
    A1:TMas;
    A2:TMas;
    A3:TMas;
    x, y:byte;

procedure zapoln(var T:TMas;Size:integer);
begin
var i,j:integer;
setlength(T,Size+1,Size+1);
for i:=1 to Size do
  begin
  for j:=1 to Size do
    begin
    T[i,j]:=random(50);
    write(T[i,j]:3);
    end;
  writeln;
  end;
writeln;
end;

function zero(T:TMas):integer;
var i,j,n:integer;
begin
n:=length(T,0)-1;
for i:=1 to n do
  for j:=1 to n do
    if T[i,j]=0 then result:=result+1;
end;

function interval(T:TMas):integer;
var i,j,n:integer;
begin
n:=length(T,0)-1;
for i:=1 to n do
  for j:=1 to n do
    if (1<=T[i,j]) and (T[i,j]<=12) then result:=result+1;
end;

begin
zapoln(A1,CSize1);
zapoln(A2,CSize2);
zapoln(A3,CSize3);
x:=zero(A1)+zero(A2)+zero(A3);
y:=interval(A1)+interval(A2)+interval(A3);
writeln('Kol-vo 0 =', x);
writeln('Kol-vo v intervale=', y);
end.

Наполняем сосуд на 9 литров и переливаем из него воду в 7 л. сосуд (в 9 л. сосуде остаётся 2 л)выливаем воду из 7л. сосуда и заливаем туда 2 л воды из 9 л. сосуда,наполняем 9 л. сосуд водой и выливаем в 7 л. сосуд.(в 9 л. Сосуде остаётся 4 л. )выливаем воду из 7л. сосуда и заливаем туда 4 л из 9 л. сосуда,наполняем 9 л. сосуд водой и выливаем в 7 л. сосуд.(в 9 л. Сосуде остаётся 6 л. )Выливаем воду из 7 л. сосуда и заливаем туда 6л. из 9 л. сосуда , наполняем 9 л. сосуд водой и выливаем в 7 л. сосуд.(в 9 л. Сосуде остаётся 8 л. )Выливаем воду из 7л. сосуда и заливаем туда воду из 9л. сосуда (8-7=1л остался в 9л. Сосуде)