Составьте программу которая заполняет массив а [ 1..10] случайными целыми числами в...

Question

Составьте программу которая заполняет массив а [ 1..10] случайными целыми числами в диапазоне от -10 до 30 и вычисляет сумму отрицательных элементов массива. выводит на экран исходный массив и значение суммы

Answer 1

PascalABC.NET 3.3

begin
  var a:=ArrRandom(10,-10,30);
  a.Println;
  writeln(a.Where(x->x<0).Sum);<br>end.

Пример:
27 8 19 -2 26 2 16 -10 11 -9
-21

Answer 2

Const n=10;var a,i:integer; mas:array [1..n] of integer; begin for i:=1 to n do   mas[i]:=random(30)-10;  a:=0;   for i:=1 to n do    if mas[i]<0 then   a:=a+mas[i];   writeln('sum',a);   for i:=1 to n do   write(mas[i]:4);   end.

Comments

const n=10;
var
a,i:integer;
mas:array [1..n] of integer;
begin
for i:=1 to n do
mas[i]:=random(30)-10;
a:=0;
for i:=1 to n do
if mas[i]<0 then<br> a:=a+mas[i];
writeln('sum',a);
for i:=1 to n do
write(mas[i]:4);
end.

---

вот более лучше видно