viet chuong trinh tinh toan don gian tinh tong,tích,thương các số ,tinh chu vi, tinh diện tích các hình

0 bình luận về “viet chuong trinh tinh toan don gian tinh tong,tích,thương các số ,tinh chu vi, tinh diện tích các hình”

1. uses crt;
   var m: array[1..100] of integer;
       n,i,max,j,t,scp: integer;
   begin
    clrscr;
     write (‘nhap n: ‘);  readln (n);
     for i:=1 to n do
      begin
       write (‘nhap m[‘,i,’]: ‘);  readln (m[i]);
       if max<=abs(m[i]) then max:=abs(m[i]);
      end;
     for i:=1 to n-1 do
      for j:=i+1 to n do
       if m[i]<m[j] then
        begin
         t:=m[i];
         m[i]:=m[j];
         m[j]:=t;
        end;
     write (‘day sau khi sap xep giam dan: ‘);
     for i:=1 to n do write (m[i],’ ‘);
     writeln;
     writeln (‘gia tri tuyet doi lon nhat trong day: ‘,max);
     write (‘cac so chinh phuong trong day: ‘);
     for i:=1 to n do
      begin
       scp:=trunc(sqrt(m[i]));
       if sqr(scp)=m[i] then
       write (m[i],’ ‘);
      end;
    readln;
   end.

   Bình luận