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

Question

Томассино

Информатика

8 февраля, 21:14

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

+5

Ответы (1)

Знаешь ответ на этот вопрос?

Вероника Карпова · Answer 1

Pascal: uses crt; const n=20; var a:array[1 ... n] of integer; i, k, p:integer; begin ClrScr; Writeln ('Введите массив'); for i:=1 to n do begin Write ('a[', i,']: '); Readln (a[i]); end; for i:=1 to n do begin if a[i]>0 then k:=k+1; if a[i]<0 then p:=p+1; end; Writeln ('Колличество положительных ', k); Writeln ('Колличество отрицательных ', p); Readln; end.