Составить программу подсчета кол-ва положительных отрицательных чисел в произвольном числовом ряду

Помогите решить в Паскале

Question

Информатика

Стефа

20 декабря, 22:09

Составить программу подсчета кол-ва положительных отрицательных чисел в произвольном числовом ряду

Помогите решить в Паскале

+1

Ответы (1)

Знаете ответ на вопрос?

Аникитич · Answer 1

Program n_1;

uses crt;

var a: array [1 ... 5] of integer;

otr, pol, i: byte;

begin

for i:=1 to 5 do begin

a[i]:=random (10) - 5;

write (a[i]:3) ;

if a[i]>0 then pol:=pol+1 else

if a[i]<0 then otr:=otr+1;

end;

writeln;

writeln ('Положительных: ', pol,'; Отрицательных: ', otr) ;

end.

Составить программу подсчета кол-ва положительных отрицательных чисел в произвольном числовом рядуПомогите решить в Паскале

Составить программу подсчета кол-ва положительных отрицательных чисел в произвольном числовом ряду

Помогите решить в Паскале