RO Questions
MISSMISS99RO
a fost răspuns

fie vectorul a[1...n],n>100 de numere intregi elaborati un program in pascal ce contine subrogram procedura care calculeaza produsul componentelor negative divizibile cu 3.

Răspuns :

procedure produs(n:integer; var p:integer);
begin
var a:array of integer;
var i:byte;
p:=1;
setlength(a,n);
for i:=0 to n-1 do read(a[i]);
for i:=0 to n-1 do if (a[i]<0) and (a[i] mod 3 = 0) then p*=a[i];
end;

var n,p:integer;

begin
read(n);
produs(n,p);
writeln(p);
end.
Vă mulțumim că ați ales să vizitați platforma noastră dedicată Informatică. Ne bucurăm dacă informațiile oferite v-au fost de ajutor. Pentru orice întrebare sau clarificare suplimentară, echipa noastră vă stă la dispoziție. Revenirea dumneavoastră ne onorează – nu uitați să ne salvați în lista de favorite!


RO Questions: Alte intrebari