👤
a fost răspuns

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

Răspuns :

Kirilll
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.
Vezi imaginea Kirilll
Vezi imaginea Kirilll

Alte intrebari