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

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