Напишите программу на языке программирования Pascal (можно использовать языки Python, C++, C# или Java). Программа должна создавать массив из 7 целых чисел, значения которого вводит пользователь (пользовательский ввод), и выводить в результате выполнения все отрицательные элементы этого массива.

program NegativeElements;
var
arr: array[1..7] of integer;
i: integer;
begin
writeln(‘Введите 7 целых чисел:’);

for i := 1 to 7 do
begin
write(‘Элемент ‘, i, ‘: ‘);
readln(arr[i]);
end;

writeln(‘Отрицательные элементы массива:’);

for i := 1 to 7 do
begin
if arr[i] < 0 then writeln(arr[i]); end; end.