Question

Cho N(N>1) và dãy số a1,a2,a3..an

Tính tích các phần tử của dãy

Thông báo các phần tử ở vị trí chẵn

Tìm các phần tử âm lớn nhất của dãy

Answer 1

Answer 2

uses crt;

var a,b:array[1..100]of integer;

i,n,ln,dem:integer;

s:longint;

begin

clrscr;

write('n='); readln(n);

for i:=1 to n do

begin

write('a[',i,']='); readln(a[i]);

end;

{------------xuat-day-------------}

for i:=1 to n do

write(a[i]:4);

{--------cau-a-------------------}

writeln;

s:=1;

for i:=1 to n do

s:=s*a[i];

writeln('tich cac phan tu cua day la: ',s);

{-----------cau-b------------------}

writeln('cac phan tu o vi tri chan cua day la: ');

for i:=1 to n do

if i mod 2=0 then write(a[i]:4);

{-------------cau-c------------------}

writeln;

dem:=0;
for i:=1 to n do
if a[i]<0 then
begin
inc(dem);
b[dem]:=a[i];
end;
ln:=b[1];
for i:=1 to dem do
if ln<b[i] then ln:=b[i];
writeln('so am lon nhat trong day A la: ',ln);
readln;
end.