Viết ct tạo ngẫu nhiên mảng A gồm N số nguyên ( N<=100) với giá trị các phần tử có giá trị tuyệt đối ko vượt quá 200 a.xuất kết quả ra màn hình b.tính

0 bình luận về “Viết ct tạo ngẫu nhiên mảng A gồm N số nguyên ( N<=100) với giá trị các phần tử có giá trị tuyệt đối ko vượt quá 200 a.xuất kết quả ra màn hình b.tính”

1. program oken;

   uses crt;

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

         i,sum,n:byte;

   begin

   clrscr;

   write(‘so phan tu cua mang’); readln(n);

   for i:=1 to n do

       begin

         write(‘a[‘,i,’]: ‘); readln(a[i]);

          if a[i]<= 200 then sum:=sum+a[i];

       end;

   writeln(‘tong gttd: ‘,sum);

   readln;

   end.

   Bình luận