Nhập mảng 1 chiều các số nguyên (N<=50) Đưa ra màn hình vị trí các số là bội của 3

0 bình luận về “Nhập mảng 1 chiều các số nguyên (N<=50) Đưa ra màn hình vị trí các số là bội của 3”

1. Program Boi;
   Uses crt;
   Var A:array[1..50] of longint;
       i,n: longint;
   Begin
           Clrscr;
           Write(‘Nhap n: ‘); Readln(n);
           For i:=1 to n do
           Begin
                   Write(‘A[‘,i,’] = ‘); Readln(A[i]);
           End;

           For i:=1 to n do
                   If A[i] mod 3 = 0 then Write(A[i]:5);
           Readln
   End.

   Bình luận