👤
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 :

KIRILLLZE
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
Vă mulțumim că ați accesat site-ul nostru dedicat Informatică. Sperăm că informațiile furnizate v-au fost utile. Dacă aveți întrebări sau aveți nevoie de asistență suplimentară, nu ezitați să ne contactați. Vă așteptăm cu drag să reveniți și nu uitați să ne salvați la favorite!


Ze Studies: Alte intrebari