Дан целочисленный массив из 30 элементов.Вывести количество отрицательных,положительных и равных нулю элементов(массив записать в 1.txt)

1

Ответы и объяснения

2014-04-13T14:12:10+04:00
 readln (n);
for i:=1 to n do
begin
readln(a[i]);
if a[i]>0 then inc (p) else if a[i]=0 then inc(nu) else inc(o);
end;
writeln (p);
writeln (nu);
writeln(o);
readln
через rewrite пишетя
мне лень было
Напиши уж пожалуйста!
readln (n);
for i:=1 to n do
begin
readln(a[i]);
if a[i]>0 then inc (p) else if a[i]=0 then inc(nu) else inc(o);
end;
writeln (p);
writeln (nu);
writeln(o);
readln
assign(output, 'output.txt1'); rewrite(output);
readln (n);
for i:=1 to n do
begin
readln(a[i]);
if a[i]>0 then inc (p) else if a[i]=0 then inc(nu) else inc(o);
end;
writeln (p);
writeln (nu);
writeln(o);
readln