Question

Va rog multtt
Se citesc n numere intregi .Sa se determine si sa se afiseze:
a)cate dintre ele sunt pare;
b)suma elementelor pozitive;
c)valoarea maxima

Answer 1

Program Xn;
var
x:array[1..100] of integer;
n,i:integer;
a,b,c:integer;
begin
Writeln('Dati n');
readln(n);
for i:=1 to n do
begin
Write('x[',i,']=');readln(x[i]);
if x[i] mod 2 = 0 then inc(a);
if x[i]>0 then b:=b+x[i];
c:=x[i];
if x[i]<c then c:=x[i];
end;
Writeln('Cifre pare=',a);
Writeln('Suma elem.pozitive=',b);
Writeln('Valoarea maxima=',c);
readln;
end.