Question

Разработать схему алгоритма, который вводит массив из N целых чисел и выводит номера отрицательных элементов и сами эти элементы. Протестировать алгоритм для следующих массивов: а) 3 5 -2 3 -2 0 -6 -8 1 б) -1 -2 -3 -4 0 -1 2 3

Answer 1

Program Pr1;
uses crt;
var mas:array[byte] of integer;
i,n:integer;
Begin
clrscr;
readln(n);
for i:=1 to n do read(mas[i]);
for i:=1 to n do if mas[i]<0 then writeln(i,' ',mas[i]);
end.

Answer 2

Program Pr1;
uses crt;
var mas:array[byte] of integer;
i,n:integer;
Begin
clrscr;
readln(n);
for i:=1 to n do read(mas[i]);
for i:=1 to n do if mas[i]<0 then writeln(i,' ',mas[i]);
end.

Answer 3

Привет! Вот схема алгоритма для решения данной задачи:

1. Ввести значение переменной N - количество элементов в массиве.
2. Создать пустой массив A размером N.
3. Для каждого элемента массива A с индексом i от 0 до N-1, выполнить следующие шаги:
   • Ввести значение элемента A[i].
4. Создать пустой массив negative_elements и пустой массив indexes.
5. Для каждого элемента массива A с индексом i от 0 до N-1, выполнить следующие шаги:
   • Если A[i] < 0, то добавить A[i] в negative_elements.
   • Добавить i в indexes.
6. Вывести содержимое массива negative_elements и массива indexes.

Теперь протестируем алгоритм на примерах:

а) Массив: 3 5 -2 3 -2 0 -6 -8 1 Ввод: N = 9 A[0] = 3 A[1] = 5 A[2] = -2 A[3] = 3 A[4] = -2 A[5] = 0 A[6] = -6 A[7] = -8 A[8] = 1 Вывод: negative_elements = [-2, -2, -6, -8] indexes = [2, 4, 6, 7]

б) Массив: -1 -2 -3 -4 0 -1 2 3 Ввод: N = 8 A[0] = -1 A[1] = -2 A[2] = -3 A[3] = -4 A[4] = 0 A[5] = -1 A[6] = 2 A[7] = 3 Вывод: negative_elements = [-1, -2, -3, -4, -1] indexes = [0, 1, 2, 3, 5]

Надеюсь, эта схема алгоритма поможет тебе решить задачу! Если у тебя есть еще вопросы, не стесняйся задавать.