Помогите пожалуйста! Дан одномерный массив с действительными числами. Найти количество отрицательных элементов. Нужно написать программу в Delphi,
5-9 класс
|
Pascal
В делфи и в паскале одно и то же.
Допустим, вы уже считали массив
a - массив (нумерация с 1), n - его длинна
for i := 1 to n do begin
if a[i] < 0 then count := count + 1;
end;
в паскале могу бы написать, но в дельфи не шарю.
ок можете написать в паскале программу?
Другие вопросы из категории
в этой же системе счисления?
Читайте также
файла.Результат поместить в файл g.
дан файл f компоненты которого являются целыми числамию Найти наибольший и наименьший из компонентов файла.результат поместить в файл g
ДАн файл f компоненты которого являются целыми числами найти количество чётных чисел среди компонентов.результат поместить в файл g
Дан файл F компоненты которого являяются целыми числами.записать в файл g все чётных числа файла f
Дан файл F компоненты которого являяются целыми числами переписать компоненты файла f в файл g,так чтобы в файле сначала шли отрицательные а потом положительные числа.
подсчитать кол-во пятерок , четверок, тоек полученных за контрольную работу, если число учеников равно 8
3)Дан одномерный числовой массив,изменить знак элементов массива К[1;12] на противоположный
таких членов.
2.Дан массив из 10 элементов. Найти количество элементов с четными индексами.
3.Дан массив из 10 элементов. Найти наибольший элемент массива.
2)Дан массив целых чисел.Найти сумму четных положительных чисел, стоящих на нечетных местах и количество отрицательных элементов, стоящих на четных местах.
3)дан массив целых чисел.найти сумму четных и положительных элементов, расположенных до первого отрицательного элемента.Примечание:при вводе необходимо учесть, что первый элемент не может быть отрицательным.