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

Узнай цену своей работы

Формулировка задачи:

Здравствуйте, помогите написать программу на pascal,спасибо.Напишите программу, которая выделяет в другой массив все элементы исходного массива, которые меньше нуля.Первая строка содержит размер массива N . Во второй строке через пробел задаются N чисел – элементы массива. Гарантируется, что 0 < N ≤ 10000 .Программа должна вывести содержимое полученного массива: все отрицательные элементы исходного массива в том же порядке. Если таких нет, нужно вывести число 0. входные данные 6 1 2 3 4 5 6 выходные данные 0

Решение задачи: «Напишите программу, которая выделяет в другой массив все элементы исходного массива, которые меньше нуля»

textual
Листинг программы
program pr;
 
var
  i, n, k, cout: integer;
  a, b: array [1..100] of integer;
 
begin
  cout := 0;
  k := 1;
  writeln('Введите размер массива');
  readln(n);
  for i := 1 to n do
  begin
    read(a[i]);
  end;
  writeln;
  for i := 1 to n do
    if a[i] < 0 then
    begin
      cout := cout + 1;
      b[k] := a[i];
      k := k + 1;
    end;
  if cout = 0 then
    writeln(0) else 
    for k := 1 to cout do
      write(b[k]:3);
end.

Объяснение кода листинга программы

  1. Создается программа под названием pr.
  2. Объявляются переменные:
    • i - для использования в циклах
    • n - для хранения размера массива
    • k - для отслеживания позиции в массиве b
    • cout - для подсчета количества отрицательных элементов
    • a, b - для хранения исходного и нового массивов соответственно
  3. Присваивается значение 0 переменной cout.
  4. Присваивается значение 1 переменной k.
  5. Выводится текст Введите размер массива.
  6. Вводится значение переменной n с клавиатуры.
  7. С помощью цикла for происходит заполнение массива a значениями, введенными с клавиатуры.
  8. Выводится пустая строка.
  9. С помощью цикла for происходит проверка каждого элемента массива a:
    • Если элемент меньше нуля, то:
      • увеличивается значение переменной cout на 1;
      • элемент массива a с добавляется в массив b на позицию k;
      • увеличивается значение переменной k на 1.
  10. Если значений cout равно 0, то выводится 0.
  11. В противном случае:
    • С помощью цикла for происходит вывод элементов массива b на экран с отступом в 3 позиции.

Оцени полезность:

9   голосов , оценка 3.889 из 5
Похожие ответы