Help me. Hứa vote 5* cho ctlhn.

Các câu hỏi liên quan

Ai giúp mk xem bài này có lỗi nào sai không ạ? Mk thử cho chạy trên pascal trên điện thoại mà ko đc ạ Program ontapbai11_mang1chieu; uses crt; type M1d=array[1..100] of longint; var A:M1d; n,i,j,k :byte; max,s:longint; demle,demnto:byte; nto:boolean; tam:longint; Begin clrscr; { Nhap mang 1 chieu } Write( ' Nhap so luong phan tu n= '); read(n); For i:=1 to n do begin Write('A[',i,']='); read(A[i]); end; Writeln; Writeln('Mang vua nhap co ', n , ' phan tu nhu sau:'); for i:=1 to n do Write(a[i]: 10); Writeln; s:=0; for i:=1 to n do s:=s+A[i]; Writeln('Tong cac phan tu cua mang la = ', s); Writeln('Cac phan tu le cua mang la:'); for i:=1 to n do if A[i] mod 2 = 1 then Write(a[i]:10); writeln; demle:=0; for i:=1 to n do if A[i] mod 2 = 1 then demle:=demle+1; Writeln('Mang tren co ' , demle ,' phan tu le'); {xuat ra cac phan tu chi het cho k} Writeln(' Nhap so k= '); read(k); Writeln(' Cac Phan tu chia het cho k=',k,' la:'); for i:=1 to n do if A[i] mod k =0 then Write(A[i]:10); writeln; max:=A[1]; for i:=1 to n do if A[i]> max then Max:=A[i]; Writeln (' Phan tu lon nhat cua mang la: ', max); j:=1; for i:=1 to n do if A[i]> A[j] then j:=i; Writeln(' Phan tu lon nhat la= ', A[j] , ' vi thu ' ,j); writeln; Writeln('Cac so nguyen to cua mang la:'); for i:=1 to n do begin nto:=true; for j:=2 to A[i] do if A[i] mod j = 0 then nto:=false; if nto= true then Write(A[i]:10); end; writeln; demnto:=0; for i:=1 to n do begin nto:=true; for j:=2 to A[i] do if A[i] mod j = 0 then nto:=false; if nto = true then demnto:=demnto+1; end; Writeln('Mang tren co ', demnto , ' so nguyen to'); for j:=n downto 2 do for i:=1 to j-1 do if A[i] > A[i+1] then begin tam:=A[i]; A[i]:=A[i+1]; A[i+1]:=tam; end; Writeln('Mang sau khi da sap xep nhu sau:'); For i:=1 to n do Write(A[i]:10); end.