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

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

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

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

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

7   голосов, оценка 3.714 из 5


СОХРАНИТЬ ССЫЛКУ