Hogyan lehet meghatározni a beolvasott számok összegét és szorzatát?

Ha később nem használod semmire sem ezeket a számokat akkor tényleg nem kell tömb

létrehozol két változót(szorzat, összeg)

Bekéred N-et

egy for ciklusban 1től N-ig

bekéred a számokat

szorzat=szorzat*bekért szám

összeg=összeg+bekért szám

Kiíratod a szorzatot meg az összeget

10 REM HAZIFELADAT

20 INPUT "HANY SZAM VAN", N

30 IF N < 1 THEN GOTO 20

40 LET OSSZEG = 0

50 LET SZORZAT = 1

60 FOR I = 1 TO N STEP 1

70 PRINT I; ". SZAM ERTEKE: ";

80 INPUT A

90 LET OSSZEG = OSSZEG + A

100 LET SZORZAT = SZORZAT * A

110 NEXT I

120 PRINT "AZ OSSZEG: "; OSSZEG

130 PRINT "A SZORZAT: "; SZORZAT

var n,i,a:integer;o,x:longint;procedure p; begin Inc(o,a);x:=x*a;end;begin

repeat Write('Hány számról van szó? ');ReadLn(n);until n>0;o:=0;x:=1;Write

(#10#13,'Kérem az első számot: ');ReadLn(a);p;for i:=2 to n do begin Write

('Kérem a következő számot: ');ReadLn(a);p;end;WriteLn(#10#13,'Összeg: ',o,

#10#13,'Szorzat: ',x);WriteLn(#10#13,'ENTER megnyomására vége a programnak.'

);ReadLn;end.