Цитата:
Сообщение от ter12
3. Из массива В[1..8] уберите все отрицательные элементы, заменив их на значения предыдущих элементов.
|
Так как для первого элемента предыдущего нет, то генерируем ему положительное значение.
Код:
var
b:array [1..8] of integer;
i:integer;
begin
randomize;
b[1]:=random(30)+1;
for i:=2 to 8 do begin
b[i]:=random(31)-30;
if b[i]<0 then b[i]:=b[i-1];
end;
for i:=1 to 8 do
write (b[i]:2);
readln
end.