Помогите!!!Людиии!!!
1. Дан массив из 10 элементов. Напечатать Все неотрицательные элементы массива.
2. Дан массив из 10 элементов. Определить Минимальный элемент массива.

чувак, спасибо!

Пожалуйста

var a:array[1..10] of integer;i:integer;beginwriteln('Вводите через Enter элементы массива:');for i:=1 to 10 doreadln(a[i]);for i:=1 to 10 doif a[i]>=0 then write(a[i]:4);end.====================================var a:array[1..10] of integer;i, min:integer;beginwriteln('Вводите через Enter элементы массива:');for i:=1 to 10 doreadln(a[i]);min:=a[1];for i:=2 to 10 doif a[i]<min then min:=a[i];writeln('Min = ',min);end.