viết chương trình nhập từ bàn phím một mảng một chiều (n<=100), in ra màn hình các phần tử chia hết cho 5

viết chương trình nhập từ bàn phím một mảng một chiều (n<=100), in ra màn hình các phần tử chia hết cho 5

0 bình luận về “viết chương trình nhập từ bàn phím một mảng một chiều (n<=100), in ra màn hình các phần tử chia hết cho 5”

  1. program ct;

    uses crt;

    var i,n:integer;

    A:array[1..100] of integer;

    begin

    clrscr;

    write(‘nhap n:=’);readln(n);

    for i:=1 to n do

    begin

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

    end;

    for i:=1 to n do

    if A[i] mod 5=0 then writeln(A[i]);

    readln

    end.

    Bình luận
  2. program ct;

    uses crt;

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

          i,n:integer;

    begin clrscr;

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

       for i:=1 to n do

         begin

            writeln(‘Nhap phan tu thu ‘,i,’: ‘); readln(A[i]);

         end;

       writeln(‘Cac phan tu chia het cho 5 la: ‘);

       for i:=1 to n do

         if A[i] mod 5=0 then write(A[i]);

    readln;

    end.

    Học tốt!

    Bình luận

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