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

KIRILLLEZ
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 pentru vizita pe site-ul nostru dedicat Informatică. Sperăm că informațiile disponibile v-au fost utile și inspiraționale. Dacă aveți întrebări sau aveți nevoie de suport suplimentar, suntem aici pentru a vă ajuta. Ne face plăcere să vă revedem și vă invităm să adăugați site-ul nostru la favorite pentru acces rapid!


Ez Studiers: Alte intrebari