Дан одномерных массив содержащий n частей и заполненный с клавиатуры. Сформулируйте
Дан одномерных массив содержащий n частей и заполненный с клавиатуры. Сформулируйте новый массив из отрицательных частей исходного массива
Задать свой вопрос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.
-
Вопросы ответы
Статьи
Информатика
Статьи
Разные вопросы.
Математика.
Физика.
Геометрия.
Разные вопросы.
Обществознание.
Математика.
Химия.
Русский язык.
Разные вопросы.