дан массив из десяти целых чисел определите сколько элементов положительных и сколько отрицательных
10-11 класс
|
var
m:array[1..10] of integer;
i,n,ot1,ot2:integer;
begin
for i:=1 to 10 do
readln(m[i]);
for i:=1 to 10 do
begin
if m[i]>0 then inc(ot1);
if m[i]<0 then inc(ot2);
end;
writeln(ot1,' ',ot2);
end.
Другие вопросы из категории
Кбит/секунду. После того, как он закачал ровно половину файла, скорость увеличилась в три раза. Какое время ему понадобится, чтобы скачать весь файл. Ответ записать в часах, округлив по математическим правилам до целых чисел.
А) a=:10
If a<5 then a=:5
Б) a=:10
If a>5 then. a=:12
я поняла что это из за того что горит зелёным лампочка(1 в
ноутбуке)(значон лампы)И когда она выключчается ноутбук включаетсчя.Но
когда я поиграла и выключила ноутбук и поставила на подзарядку ушла на
утреник.Потом пришла (спустя час)она досех пор горит что делать?
Читайте также
чисел найти количество элементов равных 3. 3)В массиве из 8 целых найти номер массива с наибольшим значением. 4)В массиве из 12 целых чисел найти количество и сумму элементов, расположенных до максимального элемента. 5)Для массива из 15 вещественных подсчитать количество элементов массива меньших суммы первого и последнего элементов массива.
среди 10 элементов вещественного массива
3)заполнить массив из n целых чисел.выяснить какое число встречается раньше-положительное или отрицательное.
4)в целочисленном массиве есть отрицательные элементы.вывести номера этих элементов
массива
3)заполнить массив из n целых чисел.выяснить какое число встречается раньше-положительное или отрицательное.
4)в целочисленном массиве есть отрицательные элементы.вывести номера этих элементов
двузначных элементов массива, которые не оканчиваются на 3. №2. Дан массив из 100 элементов. Каждый элемент может принимать целочисленные значения от 1 до 500. Напишите программу, которая позволит найти и вывести минимальное значение среди элементов массива, которые делят максимальное значение элементов массива без остатка.