Tin học viết chương trình nhập vào dãy số in ra màn hình các số lẻ của dãy ? * Xin hãy rủ lòng thương giúp 1 đứa mất gốc tin như e đi ạ ! 16/07/2021 By Samantha viết chương trình nhập vào dãy số in ra màn hình các số lẻ của dãy ? * Xin hãy rủ lòng thương giúp 1 đứa mất gốc tin như e đi ạ !
var a:array[1..320000]of longint; i,n,t,so:longint; begin writeln(‘nhap so phan tu’);readln(n); writeln(‘nhap lan luot cac phan tu trong mang’);t:=0; for i:=1 to n do begin readln(so); if so mod 2=1 then begin t:=t+1; a[t]:=so; end; end; writeln(‘day so le cua mang’); for i:=1 to t do write(a[i],’ ‘); readln; end. Trả lời
uses crt; var a: array[1..1000] of integer; i,n: integer; begin clrscr; write (‘nhap so luong phan tu: ‘); readln (n); for i:=1 to n do begin write (‘nhap so thu ‘,i,’: ‘); readln (a[i]); end; write (‘cac so le trong day vua nhap la: ‘); for i:=1 to n do write (a[i],’ ‘); readln; end. Trả lời