Question

сформировать массив с помощью Random от -30 до 30.Размер 10 элементов .Сколько в массиве отрицательных элементов?

Answer 1

begin
randomize;
for i:=1 to n do
a[i]:random (60)-30;
k:=0;
for i:=1 to n do
if a[i]<0 then k:=k+1;
writeln('k=',k);
end.

язык программирования - Pascal, k - количество отрицательных элементов

Answer 2

вроде (b-a)+a же

Answer 3

Кстати, смогешь без развилки сварганить?

Answer 4

только не сейчас, я сплю:)