Написать фрагмент программки, выводящей на экран номера отрицательных частей массива

Написать кусок программы, выводящей на экран номера отрицательных частей массива

Задать свой вопрос
1 ответ
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]lt;0 then 
Begin
b[i]:=a[i]; 
 Write(b[i],' '); 
end;
end;
end.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт