viết chương trình nhập một dãy số tối đa 100 số, sau đó tìm in ra GTLN , GTNN và vị trí GTLN, GTNN
viết chương trình nhập một dãy số tối đa 100 số, sau đó tìm in ra GTLN , GTNN và vị trí GTLN, GTNN
By Genesis
By Genesis
viết chương trình nhập một dãy số tối đa 100 số, sau đó tìm in ra GTLN , GTNN và vị trí GTLN, GTNN
program tim_max_min;
uses crt;
var i,n,max,min:integer;
a:array[1..100] of integer;
begin
Clrscr;
write(‘Ban muon nhap bao nhieu phan tu= ‘);readln(n);
for i:=1 to n do
Begin
write(‘a[‘,i,’]=’);readln(a[i]);
end;
max :=a[1] ;
min:=a[1];
for i:=2 to n do
begin
if max<a[i] then max :=a[i];
if min >a[i] then min :=a[i];
end;
writeln(‘so lon nhat la:’,max);
writeln(‘so be nhat la:’,min);
writeln(‘Vi tri cua so lon nhat la: ‘);
for i:=1 to n do
if max=a[i] then write(i:4);
writeln;
writeln(‘Vi tri cua so nho nhat la: ‘);
for i:=1 to n do
if min=a[i] then write(i:4);
readln;
end.
Chúc Bạn Hc Thật Tốt
uses crt;
Var a:array[1..1000] of integer;
i,n,max,min:integer;
Begin
Clrscr;
Write(‘Nhap do day day n = ‘); Readln(n);
For i:=1 to n do
Begin
Write(‘a[‘,i,’]=’); Readln(a[i]);
End;
max :=a[1] ; min:=a[1];
For i:=2 to n do
Begin
if max<a[i] then max :=a[i];
if min >a[i] then min :=a[i];
End;
Writeln(‘ So lon nhat trong day la: ‘, max);
Write(‘Vi tri cua so nam thu: ‘);
For i:=1 to n do
If max=a[i] then write(i:2);
WRITELN;
WRITELN;
Writeln(‘ So nho nhat trong day la: ‘, min);
Write(‘Vi tri cua so nam thu: ‘);
For i:=1 to n do
If min=a[i] then write(i:2);
Readln
End.
*Nhớ tick và vote làm câu trả lời hay nhất giúp mình nhé! Thank kiu :33