Составить программу для : задается список из 10 чисел, требуется подсчитать количество положительных и отрицательных чисел.
Cachu
1
11.04.2019 07:31
2
Другие вопросы по теме Информатика
VadAltman13
22.11.2020 15:08
adik200376
22.11.2020 15:13
kopanenkoanutaoyp3as
22.11.2020 15:13
Timoha233
01.04.2021 23:39
avatar23455
01.04.2021 23:40
юм123
01.04.2021 23:48
ЕмелиЯна
01.04.2021 23:56
guzel231299
20.06.2019 08:50
negatiff95
20.06.2019 08:06
Даня100000000
20.06.2019 08:06
Популярные вопросы
- Широкий угол ромба-120°, периметр-23,6 м. Расчеты ромба по кратчайшей...
1 - Есептік сан есімдерден,реттік және жинақтық сан есім құрастырып сөзбен...
2 - Розвьяжи рівняння (3-x)(x+4)+x²=0...
1 - - перечислить типы почв с севера на юг по 40 меридиану, - указать широты...
3 - Ювелирные изделия описание...
3 - Хлеб 30шт а масло 15шт батон меньше 2раза чем хлеб...
2 - Революция в Иране-дата- лидер Что изменили?формы устройства государственного...
1 - Укажите тип придаточного обстоятельственного в СПП: Дорогу по требованию...
3 - Назвіть визначальні ознаки будови й життєдіяльності...
2 - Для чего было предназначено египетское искусство?...
3
program chizla;
var k,x,i,a:integer;
begin
x:=0;
k:=0;
writeln ('Введите числа');
for i:=1 to 10 do
begin
readln(a);
if a<0 then
k:=k+1;
if a>0 then
x:=x+1;
end;
writeln('Положительных ',x,' Отрицательных ',k);
end.