одномерный масив

[vitik]

помогите пожалуйста зделать прогу[PASCAL][/PASCAL] . Одномерный масив складаеться с n елементов. найти 1. количество позитивных елементов масива.2 сумму елементов которые находятся после последнього елемента равного нолю.

[Valio]

Позитивный элемент этот тот который улыбается?
Где наработки?

[MoBLer]

Можешь уже не думать про позитивные элементы

 const n=10;
  var
   a:array[1..n] of integer;
   i,kol,p,m:integer;
begin
kol:=0;     m:=0;
for i:=1 to n do
begin
read(a[i]);
if a[i]>0 then kol:=kol+1;
if a[i]=0 then p:=i;
end;
for i:=p to n do
m:=m+a[i];

writeln('количество позитивных елементов масива=',kol);
writeln('сумму елементов которые находятся после последнього елемента равного 0=',m);
readln;
readln
end.

[andrewpalkin]

writeln('количество положительных элементов массива =',kol);
writeln('сумму элементов, которые находятся после последнего элемента равного 0=',m);

[vitik]

спасиба что помогли у меня была пробная прога

program pr; 
var 
a: array[1..1000] of integer; 
n,k,kol,sum,posl:integer; 
begin 
read(n); 
for k:=1 ro n do 
begin 
read(a[k]); 
if a[k]>0 then kol:=kol+1; 
if a[k]=0 then posl:=k; 
end; 
for k:=posl ro n do 
sum:=sum+a[k]; 
for k:=1 to n do 
write(a[k],' ')

ноя понял в чом моя ошыбка