👤
VALERIAZAHARIA1EZ
a fost răspuns

Problema: În PASCAL
Se consideră un tablou liniar A(1..10) of integer. Scrieți un program care va calcula suma elementelor pozitive si produsul elementelor negative.

Răspuns :

KIRILLLEZ
program sumaNr;

var  A : array[1..10] of integer;

var  n, sum, prod: integer;

begin
  sum := 0;
  prod := 1;
  for var i := 1 to 10 do
   begin
   write(i + '. ');
    readln(A[i]);
    n:=A[i];
    if n > 0 then
      sum := sum + n
    else if n < 0 then
      prod := prod * n;
  end;
  writeln('Suma numerelor pozitive este ' + sum);
  writeln('Produsul numerelor negative este ' + prod);
end.
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