Составить программу в Паскале. Ввести N чисел, и посчитать кол-во положительных и кол-во отрицательных
10-11 класс
|
var n,x,neg,pos: integer;
begin
write('n='); readln(n);
while n>0 do begin
n := n - 1;
readln(x);
if x < 0 then neg := neg + 1
else if x > 0 then pos := pos + 1;
end;
writeln('положительных: ', pos);
writeln('отрицательных: ', neg);
end.
Другие вопросы из категории
символов?
1) 512 бит
2) 400 бит
3) 480 бит
4) 256 бит
5) 60 бит
Задание 1
В одномерном массиве случайных вещественных числе F(17) определить количество положительных элементов и их сумму.
Задание 2
В матрице L(5,5) случайных вещественных чисел определить максимальный элемент выше побочной диагонали, поменять его местами с элементом 2 строки 2 столбца.
Большая просьба расписать задачу подробно , хочу не просто списать решения , а понять его и научиться решать сам , огромное спасибо.
Читайте также
только элементы кратные 2
3)Найти сумму первых пяти элементов
Составить программу Дан массив целых чисел , размерность -12
1) Заполнение массива производить случайными числами из диапозона [-10;35]
2)Вывести на печать только положительные элементы
3)Найти количество отрицательных элементов
Составить программу
Известны данные о выпуске прождукции ( ткани в метрах ) ткацким цехом текстильного комбината за каждый день месяца . Определить количество ткани ( метров) произведенных цехом за месяц .
2. Составить программу для упорядоченное двух элементов по убыванию.