Краткая задачка на массивы PASCAL, нужна помощь, пожалуйста!!!!"Отыскать все элементы массива

Короткая задачка на массивы PASCAL, нужна помощь, пожалуйста!!!!
"Найти все элементы массива вещественных чисел a(30) наименьшие 0"

Задать свой вопрос
1 ответ
c:=0;
for i := 1 to 30 do    
if A[i ] lt; 0 then c := c + 1;
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт