Viết chương trình nhập vào một dãy gồm n số nguyên ( n nhỏ hơn hoặc bằng 250,a[i]nhỏ hơn hoặc bằng 500) a)In ra màn hình dãy vừa nhập b)Đếm số lương

Viết chương trình nhập vào một dãy gồm n số nguyên ( n nhỏ hơn hoặc bằng 250,a[i]nhỏ hơn hoặc bằng 500)
a)In ra màn hình dãy vừa nhập
b)Đếm số lương số nguyên tố trong dãy
c)Tìm giá trị nhỏ nhất của dãy
d)Sắp xếp dãy đó theo chiều ko giảm

0 bình luận về “Viết chương trình nhập vào một dãy gồm n số nguyên ( n nhỏ hơn hoặc bằng 250,a[i]nhỏ hơn hoặc bằng 500) a)In ra màn hình dãy vừa nhập b)Đếm số lương”

  1. program mang;

    uses crt;

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

          n,i,T: integer;

    Begin

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

             for i:=1 to n do

             begin

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

             end;

             write(‘Day so vua nhap la: ‘);

             for i:=1 to n do write(A[i],’  ‘);

             writeln;

             for i:=1 to n do

                  if A[i]<0 then T:=T+A[i]

                  else write(‘Khong co so am’);

             write(‘T = ‘,T);

             readln

    Bình luận

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