Viết chương trình sử dụng biến mảng nhập vào một dãy n số nguyên rồi in ra màn hình các phần tử lớn hơn 0 và chia hết cho 5 từ dãy số đó. Dân chuyên t

Bởi

Viết chương trình sử dụng biến mảng nhập vào một dãy n số nguyên rồi in ra màn hình các phần tử lớn hơn 0 và chia hết cho 5 từ dãy số đó.
Dân chuyên tin chỉ vs

0 bình luận về “Viết chương trình sử dụng biến mảng nhập vào một dãy n số nguyên rồi in ra màn hình các phần tử lớn hơn 0 và chia hết cho 5 từ dãy số đó. Dân chuyên t”

  1. program Mang;

    uses crt;

    var A:array [1..500] of integer;

          n,i: integer;

    Begin

             clrscr;

             write(‘Nhap so phan tu: ‘); readln(n);

             for i:=1 to n do

             begin

                      write(‘A[‘,i,’]=’); readln(A[i]);

             end;

             write(‘Cac phan tu > 0 va chia het ch 5: ‘);

             for i:=1 to n do

                  if (A[i]>0) and (A[i] mod 5=0) then write(A[i],’  ‘);

             readln

    End.

    Bình luận

Viết một bình luận