Informatică, întrebare adresată de ionutv616, 8 ani în urmă

Fiind dat un vector v cu n elemente numere intregi,scrieti cate un program care determina suma elementelor pozitive din vector. In pascal, va rog. Multumesc!


grigore2018: var
x: array [1..100] of Integer;
i, n: Integer;
s: Integer;

begin
writeln('Care elemente are tabloul:');
read(n);
s := 0;
for i := 1 to n do
begin
Write('x[', i, '] = ');
Readln(x[i]);

if (x[i] > 0) and (x[i] < 10) then s := s + x[i];
end;
Writeln(s);
end.

Răspunsuri la întrebare

Răspuns de victorboghean
4

main(){

int a[100];

 int i,n,s = 0;

printf("Dati nr de elemente n = ");

scanf("%d",&n);}

for(i=0; i<n; i++){

 scanf("%d",&a[i]);

}

printf("\na = ");

 for(i=0; i<n; i++){

  printf("%d ",a[i]);

}

 for(i=0; i<n; i++){

  if(a[i]>0){

   s+=a[i];

}

}

 printf("\nSuma elementelor pozitive s = %d",s);

}

}

Alte întrebări interesante