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?
Răspunsuri la întrebare
Răspuns de
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.
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
Limba română,
8 ani în urmă
Engleza,
8 ani în urmă
Matematică,
9 ani în urmă
Limba rusă,
9 ani în urmă
Limba română,
9 ani în urmă
Matematică,
9 ani în urmă