Кто хорошо разбирается в программировании? очень нужно :) Помогите пожалуйста, напишите...

Question

Кто хорошо разбирается в программировании? очень нужно :) Помогите пожалуйста, напишите программы в Паскале для задач:

1. Заполнить массив А[15] числами 106, 112, 118, 124, 130,...

2.дан массив целых чисел, состоящий из 30 элементов. заполнить его с помощью датчика случайных чисел. Hайти:

a) сумму отрицательных элементов

б) количество тех элементов, значения которых положительны и не превосходят заданного числа А

Answer 1

// PascalABC.NET 3.2, сборка 1325 от 19.10.2016
begin
  var a:=106.Step(6).Take(15).ToArray; a.Println
end.

Результат
106 112 118 124 130 136 142 148 154 160 166 172 178 184 190

// PascalABC.NET 3.2, сборка 1325 от 19.10.2016
begin
  var b:=ArrRandom(30,-50,50); b.Println;
  var a:=ReadInteger('Введите число А:');
  Writeln('Сумма отрицательных: ',b.Where(x->x<0).Sum);<br>  Writeln('Cумма положительных, не больших ',a,', равна ',
    b.Where(x->(x>0) and (x<=a)).Sum)<br>end.

Пример
-21 12 8 50 -47 35 45 -2 -30 -33 3 12 41 -29 8 2 -24 -44 -50 -2 -13 -32 33 -29 35 -43 20 -44 42 -3
Введите число А: 36
Сумма отрицательных: -446
Cумма положительных, не больших 36, равна 168