103
63
Hãy luôn nhớ cảm ơn và vote 5*
nếu câu trả lời hữu ích nhé!
uses crt;
var n,i,max,min,sc,sl,x,k,nn: integer;
a: array[1..100] of integer;
begin
clrscr;
write('Nhap do dai: '); readln(n);
write('Nhap mang: '); for i:=1 to n do begin
read(a[i]);
if a[i] mod 2=0 then sc:=sc+a[i] else sl:=sl+a[i];
end;
max:=a[1]; min:=a[1];
for i:=2 to n do begin
if max<a[i] then max:=a[i];
if main>a[i] then min:=a[i];
end;
writeln('GTLN = ',max,' | GTNN = ',min);
writeln('Tong chan: ',sc,' | Tong le: ',sl);
write('Mang nguoc lai: ');
for i:=n downto 1 do write(a[i],' ');
writeln;
write('Nhap 1 so: '); readln(x);
write('Nhap vi tri: '); readln(k);
for i:=k+1 to n+1 do a[i]:=a[i+1];
a[k]:=x;
write('Nhap so NN: '); readln(nn);
for i:=1 to n+1 do if nn=a[i] then k:=1;
if k=1 then begin
write('Vi tri cua so ',nn,' la: ');
for i:=1 to n+1 do if nn=a[i] then write(i,' ');
end else write('Khong co so ',nn,' trong day');
readln
end.
Hãy giúp mọi người biết câu trả lời này thế nào?
Bảng tin