Предмет: Информатика, автор: KamillaSummer

Дан целочисленный массив состоящий из 30 элементов. Вывести кол-во положительных,отрицательных и нулевых элементов. Программа нужна для паскаль ABC, желательно объяснить что и как получилось, если не трудно, заранее спасибо. 

Ответы

Автор ответа: Lenochka5
0
const
n1=1000;
type
mas=array[1..n1]of integer;
var
a:mas;
i,kpol,kotr,knuley,n:integer;
begin
randomize;
readln(n);
for i:=1 to n do a[i]:=random(31)-5;
for i:=1 to n do write(a[i],' '); writeln;
kpol:=0;kotr:=0;knuley:=0;
for i:=1 to n doif a[i]<0 then kotr:=kotr+1 else
if a[i]>0 then kpol:=kpol+1 else
if a[i]=0 then knuley:=knuley+1;
writeln(kotr);
writeln(kpol);
writeln(knuley);end.
Похожие вопросы
Предмет: Математика, автор: vikaovcinnikova68
Предмет: Алгебра, автор: клепа37