viết ct con nhập từ bàn phím dãy số s gồm k phần tử số nguyên (k <=890).hãy in ra màn hình các số chia hết choo 5 và không chia hết cho r . tính tổng bình phương các số đó. r nhập từ bàn phím
uses crt; var a:array[1..20]of integer; i,t:integer; begin clrscr; for i:=1 to 20 do begin repeat write('a[',i,']='); readln(a[i]); if a[i]<0 then writeln('ban da nhap sai, yeu cau ban nhap lai'); until a[i]>=0; end; t:=0; for i:=1 to 20 do if (a[i] mod 2=0) and (i mod 2=1) then t:=t+a[i]; writeln('tong cac phan tu la so chan o vi tri le trong day la: ',t); readln; end.
Bài 2:
uses crt; var a:array[1..150]of longint; i,dem,n:integer; begin clrscr; write('n='); readln(n); if n<=150 then begin for i:=1 to n do begin repeat write('a[',i,']='); readln(a[i]); if a[i]>=1000 then writeln('ban da nhap sai, yeu cau ban nhap lai'); until a[i]<1000; end; {----------------------------------------------------------} dem:=0; for i:=1 to n do if a[i]>0 then inc(dem); writeln('so luong so duong trong day la: ',dem); end; readln; end.