Question

Вводится число N,а затем n чисел.Выведите среди N чисел только положительные Pascal abs

Answer 1

Var
N,i:integer;
begin
readln(n);
for  i:=1  to n do
begin
if  n>0  then
writeln(i)
end;
end.

Answer 2

Program Prog;
Uses crt;

 var a: array [1..100] of real;
     i, N: integer;
 
 begin
 clrscr;
 
 Write('N = ');
 readln(n);
 
 for i:=1 to n do
 begin
     write('a[',i,'] = ');
     readln(a[i]);
 end;
 
 writeln;
 writeln('Положительные числа: ');
  for i:=1 to n do
 if (a[i]>0) then
     writeln('a[',i,'] = ', a[i]);
 end.

Answer 3

Для решения этой задачи необходимо выполнить следующие шаги:

1. Ввести число N с помощью функции input().
2. Создать пустой список nums для хранения чисел, введенных пользователем.
3. С использованием цикла for ввести n чисел и добавить их в список nums.
4. С использованием цикла for и условия if проверить каждый элемент списка nums на положительность с помощью функции abs(). Если элемент является положительным, вывести его на экран.

Пример кода на языке Python:

pythonCopy code
N = int(input("Введите число N: "))
nums = []

for i in range(N):
    num = int(input(f"Введите число {i+1}: "))
    nums.append(num)

for num in nums:
    if abs(num) == num:
        print(num)

Пример работы программы:

yamlCopy code
Введите число N: 5
Введите число 1: -2
Введите число 2: 3
Введите число 3: -4
Введите число 4: 5
Введите число 5: -6
3
5

В этом примере пользователь ввел число N = 5 и пять чисел (-2, 3, -4, 5, -6). Программа вывела на экран только положительные числа 3 и 5.