Question

Se considera tabloul A[1..n] de numere intregi ,n<=100.
Sa se scrie un program care numara cite elemente pozitive sunt pe locurile pare.
Pascal

Answer 1

program P;

var
  A: array [1..100] of integer;
  i, n, numere: integer;

begin
  numere := 0;
  write('n : ');
  readln(n);
  for i := 1 to n do
   begin
    readln(A[i]);
    if A[i] > 0 then
      if A[i] mod 2 = 0 then
        numere := numere + 1;
  end;
  writeln('Sunt : ' + numere);
end.

3f856e580e8499b89e84b1eca0bcaa2f.pas

93bda124c7cb490a520ae6b60ccf2beb.txt