Целые числа Опции

[Данила]

Дан массив действительных чисел, размерность которого N. Подсчитать сколько в нём отрицательных, положительных и нулевых элементов.

Даны действительные числа а1,а2,... ,аn. Поменять местами наибольший и наименьший элементы.

Даны целые числа а1,а2,... ,аn. Вывести на печать только те числа, для которых выполняется аi <= i.
:molitva:

[klem4]

Это лишние обращения к памяти. Гораздо проще после цикла вычислить:

Код

s3 := n - s1 - s2;

Я не задумывался и мне намного проще было написать

Код

else inc(s3)

Мне кажется в такой маленькой программе это не грает никакой роли.