В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
matfeys
matfeys
27.01.2022 03:22 •  Информатика

Количество положительных и отрицательных чисел. (pascal и с решить данную в двух или хотя бы в одной. надо.

Показать ответ
Ответ:
mnmnho57
mnmnho57
28.05.2020 17:28

var a:array of integer;

N,i,k1,k2,k3:integer;

BEGIN

readln(N);

SetLength(a,N);

for i:=0 to N-1 do begin

read(a[i]);

if (a[i]=0) then k3:=k3+1;

if (a[i]>0) then k1:=k1+1;

if (a[i]<0) then k2:=k2+1;

end;

writeln(k1);

writeln(k2);

writeln(k3);

for i:=0 to N-1 do

write(a[i],' ');

end.

0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота