Вопрос Основы программирования и баз данных

[wertyy]

Составить программу на языке Паскаль . Ввести с клавиатуры массив А из 13 целых чисел Вывести на экран количество отрицательных элементов массива. Если таких элементов нет, то вывести надпись "отрицательных элементов нет"

 

[tyson]

count:=0; for i:=1 to 13 do if mass < 0 then inc(count);