Выведите на экран все положительные элементы массива - Pascal ABC

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

8. Создайте одномерный массив, в который пользователь введет с клавиатуры значения элементов. Выведите на экран значения элементов массива. Выведите на экран все положительные элементы массива.

Решение задачи: «Выведите на экран все положительные элементы массива»

Листинг программы

...
for i:=1 to n do
 readln(a[i]);
for i:=1 to n do
  if a[i]>0 then 
    write(a[i],'  ');
...

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

В данном коде используется два цикла for. Первый цикл считывает все элементы массива, второй цикл проверяет каждый элемент массива на положительное значение и выводит его на экран, если это условие выполняется.

readln(a[i]); - считывает элемент массива и сохраняет его в переменной a[i].
if a[i]>0 then - проверяет, больше ли текущий элемент массива нуля.
write(a[i],' '); - если условие выполняется, то выводит элемент массива на экран с пробелом перед ним. Таким образом, данный код выводит на экран все положительные элементы массива.