Question

alcatuieste un program pascal care citeste de la tastatura nr de elemente si elementele a 2 tabele unidemensionalr cu elemente de tip real si afiseaza pe ecran nr de elemente pozitive a tabelului progr.
Please

Answer 1

var a,b:array of real;
m,n,p:integer;
i:byte;

begin
Write('Numarul elementelor primului tabel: ');
read(n);
setlength(a,n);
Write('Numarul elementelor a doilea tabel:');
read(m);
setlength(b,m);
Writeln;
Writeln('Elementele primului tabel:');
for i:=0 to n-1 do read(a[i]);
Writeln('Elementele a doilea tabel:');
for i:=0 to m-1 do read(b[i]);
Writeln;
for i:=0 to n-1 do if (a[i]>=0) then inc(p);
for i:=0 to m-1 do if (b[i]>=0) then inc(p);
Write('Elemente pozitive: ',p);
end.