Найти количество положительных (отрицательных) чисел среди четырех чисел А, В, С, D?

Виталик2600 10 мая 2020 г., 14:18:21

Var a, b, c, d : integer ;

begin

readln(a, b, c, d) ;

if a> ; 0 then p : = p + 1 ;

if a< ; 0 then o : = o + 1 ;

if b> ; 0 then p : = p + 1 ;

if b< ; 0 then o : = o + 1 ;

if c> ; 0 then p : = p + 1 ;

if c< ; 0 then o : = o + 1 ;

if d> ; 0 then p : = p + 1 ;

if d< ; 0 then o : = o + 1 ;

writeln('Положительных чисел : ', p, ', отрицательных : ', o)

end.

Zarechnev03 31 мая 2020 г., 23:07:23 | 10 - 11 классы

Вводить с клавиатуры 10 целых чисел, выдать на экран количество положительных чисел, количество отрицательных , количество нулевых?

Вводить с клавиатуры 10 целых чисел, выдать на экран количество положительных чисел, количество отрицательных , количество нулевых.

MissFeyka 29 мар. 2020 г., 20:24:00 | 5 - 9 классы

Найти количество положительных чисел среди введенных с клавиатуры четырёх чисел в паскале?

Найти количество положительных чисел среди введенных с клавиатуры четырёх чисел в паскале!

Valeri2004 7 мар. 2020 г., 05:28:51 | 5 - 9 классы

Дан массив положительных и отрицательных чисел?

Дан массив положительных и отрицательных чисел.

Вывести количество положительных и отрицательных чисел, стоящих на нечетных местах.

Срочно!

Помошник107 3 февр. 2020 г., 19:47:01 | 10 - 11 классы

PascalОпределить среди 3 введенных чисел сумму отрицательных и положительных?

Pascal

Определить среди 3 введенных чисел сумму отрицательных и положительных.

Если больше сумма положительных, то найти разность первого и второго числа, а иначе найти произведение 3 - х чисел.

ТОЛЬКО ПРОГРАММА.

Pee006 15 июн. 2020 г., 00:10:56 | 5 - 9 классы

Среди n введенных с клавиатуры чисел, найти сумму положительных и произведение отрицательных чисел?

Среди n введенных с клавиатуры чисел, найти сумму положительных и произведение отрицательных чисел.

Katr30 13 янв. 2020 г., 06:47:20 | 10 - 11 классы

Посчитать количество отрицательных чисел среди чисел m, n, p?

Посчитать количество отрицательных чисел среди чисел m, n, p.

Mokujin 20 июн. 2020 г., 02:08:55 | 10 - 11 классы

Задан массив из N действительных чисел?

Задан массив из N действительных чисел.

Определить количество максимальных элементов.

Определить максимальный элемент среди положительных чисел и максимальный среди отрицательных чисел и их номера.

Danchenko05 17 нояб. 2020 г., 15:50:16 | 10 - 11 классы

Найти разность положительных чисел и посчитать количество отрицательных чисел на отрезке [ - 10 : 3]?

Найти разность положительных чисел и посчитать количество отрицательных чисел на отрезке [ - 10 : 3].

Anna200478 15 дек. 2020 г., 14:02:53 | 5 - 9 классы

Паскаль?

Паскаль.

Подсчитайте количество отрицательных и положительных чисел среди чисел a, b, c.

ToriVi48888 10 нояб. 2020 г., 17:47:38 | 5 - 9 классы

Разработать программу на языке программированияTurbo Pascal :В массиве хранится 10 случайных чисел в интервале[ - 1, 1]?

Разработать программу на языке программированияTurbo Pascal :

В массиве хранится 10 случайных чисел в интервале[ - 1, 1].

Найти количество положительных и отрицательных чисел.

Определить, во сколько суммарное количество положительных чисел превышает отрицательных.