Найти кол-во отрицательных чисел этого массива const n=15; var a: array[1..n]

Найти кол-во отрицательных чисел этого массива const n=15; var a: array[1..n] of integer; i,k: integer; begin randomize; k:= ; for i:=1 to n do a[i]:= random(51)-25; for i:=1 to n do write(a[i]:4); writeln; for i:=1 to n do if a[i] then k:=; writeln(39;кол-во отрицательных: 39;, ); end.

Задать свой вопрос
0 ответов
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт