Informatică, întrebare adresată de Daniel12748128796, 9 ani în urmă

Se considera tabloul A [1..n] de numere intregi , n <=100. Sa se scrie un program care numara cite elemente pozitive contine acest tablou

Dau coroana!!!!


creierul9: ce?
Daniel12748128796: sa scrii problema in limbajul pascal
creierul9: nuuu
Daniel12748128796: ce nu?
creierul9: trebyie doar sa compari
Daniel12748128796: sa pun conditia ca a[i] > 0?
Daniel12748128796: if a[i]>0 then k:=k+1
Daniel12748128796: asa?
creierul9: da
Daniel12748128796: ok multumesc

Răspunsuri la întrebare

Răspuns de blindseeker90
3
program Prob;

type tablou=array[1..100] of integer;
var A:tablou;
var i,n,nr_pozitive:integer;

begin
   writeln('Introduceti nr de elemente:');
   readln(n);
   writeln('Introduceti elementele:');
   nr_pozitive:=0;
   for i:=1 to n do
   begin
   read(A[i]);
   if A[i]>0 then
    nr_pozitive:=nr_pozitive+1;
   end;
   writeln('nr elemente pozitive:',nr_pozitive);
end.
Alte întrebări interesante