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
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
By Katherine
By Katherine
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
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.