Дан одномерных массив содержащий n частей и заполненный с клавиатуры. Сформулируйте

Дан одномерных массив содержащий n частей и заполненный с клавиатуры. Сформулируйте новый массив из отрицательных частей исходного массива

Задать свой вопрос
1 ответ

program zz1;
var i,j,n:integer;
a,b:array[1..100] of integer; //заводим два массива
begin
read(n); // вводим заданное количество чисел n
for i:=1 to n do //заполняем массив числами с клавиатуры через пробел
read(a[i]);

for i:=1 to n do
if a[i] lt;0 then begin j:=j+1;b[j]:=a[i];end; //проверяем, если число из массива а отрицательное, то считаем его номер и записываем в массив b

for i:=1 to j do //по окончанию предшествующего цикла, переменная j бережёт количество отрицательных чисел из массива а
write(b[i], ); //выводим ответ
end.

, оставишь ответ?
Имя:*
E-Mail:


Последние вопросы

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

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

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

Войти на сайт