viết chương trình nhập vào một dãy số nguyên A gồm n số (biết n được nhập từ bàn phím và n<=500) sau đó các số chia hết cho 5 có trong dãy số A đã nhậ

viết chương trình nhập vào một dãy số nguyên A gồm n số (biết n được nhập từ bàn phím và n<=500) sau đó các số chia hết cho 5 có trong dãy số A đã nhập

0 bình luận về “viết chương trình nhập vào một dãy số nguyên A gồm n số (biết n được nhập từ bàn phím và n<=500) sau đó các số chia hết cho 5 có trong dãy số A đã nhậ”

  1. Var n, i: word;

           a:array[1..500] of integer;

     

    begin

      write(‘n = ‘); readln(n);

      for i:=1 to n do

          begin

             write(‘a[‘, i, ‘] = ‘); readln(a[i]);

          end; 

      writeln(‘Cac so chia het cho 5: ‘);

      for i:=1 to n do

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

      readln

     

    end.

     

     

    Bình luận
  2. uses crt;
    var n,i:longint; a:array[1..10000000]of longint;
    begin
    clrscr;
       write(‘Nhap so n (N<=500): ‘);readln(n);
       for i:=1 to n do 
          begin
             write(‘Nhap phan tu thu ‘,i,’: ‘);read(a[i]);
          end;
       for i:=1 to n do 
          if a[i] mod 5=0 then write(a[i],’ ‘); 
    readln
    end.

    Bình luận

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