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

Question

Роман Романов

Информатика

11 ноября, 00:42

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

+1

Ответы (1)

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

Arada · Answer 1

Pascal: uses crt; var a: array [1 ... 10] of integer; i, k: integer; begin writeln ('Дан массив'); for i:=1 to 10 do begin a[i]:=random (101) - 50; write (a[i]:4); if a[i]<0 then inc (k); end; writeln; writeln ('Количество отрицательных ', k); end.