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

[Данила]

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

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

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

[Nemo]

По решению первого задания: в целях оптимизации нет смысла в цикле писать:

Код

else inc(s3);

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

Код

s3 := n - s1 - s2;