Question

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

Answer 1

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 2

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

1. Ввести число N. 2. Создать пустой список для хранения положительных чисел. 3. Для каждого из n чисел: - Ввести число. - Если число положительное, добавить его в список положительных чисел. 4. Вывести список положительных чисел.

Пример псевдокода:

ввести N
создать пустой список положительные_числа
для каждого из n чисел:
    ввести число
    если число > 0:
        добавить число в список положительные_числа
вывести положительные_числа

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