Написать фрагмент программы, выводящей на экран номера отрицательных элементов массива
Answers & Comments
Nеmo
Const n=10; Var a,b:array[1..n] of integer; i:integer; Begin Randomize; For i:=1 to n do begin A[i]:=Random(20)-10; Write(a[i],' '); end; Writeln; Writeln('Отрицательные элементы массива: '); For i:=1 to n do Begin If A[i]<0 then Begin b[i]:=a[i]; Write(b[i],' '); end; end; end.
Answers & Comments
Var a,b:array[1..n] of integer;
i:integer;
Begin
Randomize;
For i:=1 to n do
begin
A[i]:=Random(20)-10;
Write(a[i],' ');
end;
Writeln;
Writeln('Отрицательные элементы массива: ');
For i:=1 to n do
Begin
If A[i]<0 then
Begin
b[i]:=a[i];
Write(b[i],' ');
end;
end;
end.