Запишите программу которая заполняет массив случайными числами ** отрезке от -2 до 2 и...

Question

Запишите программу которая заполняет массив случайными числами на отрезке от -2 до 2 и считает сумму положительных элементов массива

Answer 1

На каком языке нужна программа?

Comments

паскаль авс

---

var A: array[1..10] of integer;
Sum,i : integer;
begin
Sum := 0;
For i:=1 to 10 do
begin
randomize;
a[i] := random(-2,2);
end
For i:=1 to 10 do
if a[i] >= 0 then
Sum = Sum + a[i];
end;

---

в переменной сум сумма положительных элементов масива