Задания в приложениях. ** Паскале , пожалуйста.

Question

Задания в приложениях. На Паскале , пожалуйста.

---

---

---

Answer 1

PascalABC.NET 3.3.5, сборка 1660 от 20.04.2018
Внимание! Если программа не работает, обновите версию!

№1

begin
  var a:=ArrRandom(15,-50,50); a.Println;
  a.Where(t->t>10).Sum.Println
end.

Пример
-39 -31 41 13 2 -33 25 43 -33 -27 8 -49 -21 -9 38
160

№2

begin
  var a:=ArrRandom(12,-50,50); a.Println;
  a.Where(t->t>5).Aggregate(BigInteger(1),(p,q)->(p*q)).Println
end.

Пример
-44 -22 -44 27 -3 -18 33 -14 -32 13 5 -9
11583

№3

begin
  var a:=ArrRandom(20,-50,50); a.Println;
  a.Transform(t->t<0?t*3:t); a.Println<br>end.

Пример
-37 -46 -19 50 44 -36 46 -45 19 -35 18 -9 9 32 -34 7 32 7 -11 20
-111 -138 -57 50 44 -108 46 -135 19 -105 18 -27 9 32 -102 7 32 7 -33 20

Answer 2

1. var a: array [1..15] of Integer ;
sum,i:Integer;
begin
for i:=1 to 15 do
begin
Writeln('Введите значение ', i, ' элемента массива');
ReadLn(a[i]);
if a[i]> 10 then sum:=sum+a[i];
end;
Writeln('Сумма элементов, больших 10 = ',sum);
end.
2. var a: array [1..12] of Integer ;
p,i:Integer;
begin
p:=1;
for i:=1 to 12 do
begin
Writeln('Введите значение ', i, ' элемента массива');
ReadLn(a[i]);
if a[i]> 5 then p:=p*a[i];
end;
Writeln('Произведение элементов, больших 5 = ',p);
end.