Напишите в виде программы для паскаля. в массиве а(5) посчитать количество положительных и отрицательных элементов
RageTeenage
3
30.03.2019 17:10
0
Другие вопросы по теме Информатика
Якино
10.06.2019 17:50
Асель1139
10.06.2019 17:50
AlexMason03
10.06.2019 17:50
Soto350
06.09.2019 13:00
zhannayachmenev
24.06.2019 09:40
chipssensey
02.02.2021 16:58
alisapogorlyakoz2epw
02.02.2021 16:58
zgonnikovakisa11
02.02.2021 16:58
Популярные вопросы
- Влесу живут вини пух, пятачок, сова, кролик, иа-иа, тигра и кенга. каждый в...
1 - Какова продолжительность сокращения желудочков при обычной частоте сокращения...
1 - Вкаких единицах измеряется мощность...
2 - Собрались один раз братья - дни недели на лесной опушке, и стали обсуждать...
3 - Любой пары слов составь и запиши два предложения честный без честный совестный...
1 - Соедините стрелками заглавие произведений с жанрами. как боролся богатырь сказка...
3 - Четыре подружки послали друг другу открытки с праздником.сколько всего конвертов...
3 - Прочитайте предложения. всё от в них верно написано? я вышел с трамвая. мама...
3 - Какой смысл в пословице: мир освещается солнцем,а человек- знанием....
1 - Периметр равнобедренного треугольника равен 272, а основание 102. найдите площадь...
1
var
a: array[1..5] of integer;
p,ot,i:integer;
begin
p:=0;
ot:=0;
for i:=1 to 5 do
readln(a[i]);
for i:=1 to 5 do begin
if a[i]>0 then
p:=p+1
else
ot:=ot+1;
end;
writeln('polozitelnich=', p, ' otrizatelnich=', ot);
end.