Tin học Tìm phân tử lớn nhất dãy số nguyên với N<=250 theo trực tiếp hoặc gián tiếp 22/08/2021 By Rylee Tìm phân tử lớn nhất dãy số nguyên với N<=250 theo trực tiếp hoặc gián tiếp
uses crt; var a: array [1..250] of longint; n,i,j:byte; t:longint; begin write(‘Nhap n: ‘); readln(n); for i:=1 to n do write(‘Nhap so thu ‘,i); read(a[i]); for i:=1 to n-1 do for j:=i+1 to n do if a[i]<a[j] then begin t:=a[j]; a[j]:=a[i]; a[i]:=t; end; clrscr; write(‘Phan tu lon nhat la, ‘,a[1]); end. Trả lời
bạn có thể tham khảo
uses crt;
var a: array [1..250] of longint;
n,i,j:byte;
t:longint;
begin
write(‘Nhap n: ‘); readln(n);
for i:=1 to n do
write(‘Nhap so thu ‘,i); read(a[i]);
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i]<a[j] then
begin
t:=a[j];
a[j]:=a[i];
a[i]:=t;
end;
clrscr;
write(‘Phan tu lon nhat la, ‘,a[1]);
end.