Попалась задача на одномерный массив:
Заполнить массив из 200 элементов случайным образом и посчитать произведение элементов до первого отрицательного.
Как такой рандом на отрицательные числа забить и подсчитать произведение?
varзыв случае, если первый элемент отрицательный, произведение= единица
ar:array[0..9] of integer;
i, pr:integer;
begin
randomize;
for i:=low(ar) to high(ar) do begin
ar[i]:=random(10)-random(10);
writeln(ar[i]);
end;
i:=low(ar);
pr:=1;
while ( (ar[i]>=0 ) and (i<=high(ar))) do begin
pr:=pr*ar[i];
inc(i);
end;
writeln;
writeln(pr);
end.
ar[i]:=random(20)-10;