Написать фрагмент программы, выводящей на экран номера отрицательных элементов массива
Написать фрагмент программы, выводящей на экран номера отрицательных элементов массива
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы