Viết chương trình in ra số lớn nhất, nhỏ nhất trong dãy số gồm n phần tử
2 câu trả lời
Program bt;
Uses crt;
Var A:array[1..100] of integer;
N, i,max, min: integer;
Begin
Clrscr;
Writeln(' So phan tu cua day la');
Readln(n);
For i:=1 to n do
Begin
Writeln('nhap gia tri thu',i);
Readln(a[i]);
End;
Max:= a[1];
For i:= 2 to n do
If A[i]>max then max:= A[i];
Min:=a[1];
For i:=2 to n do
If a[i] < Min then min:= a[i];
Writeln('GTLN cua day la', max);
Writeln('GTNN cua day la', min);
Readln
End.
Bài này mình làm theo biến mảng bạn nhé
Chúc bạn học tốt
program ct;
uses crt;
var i,n,Max,Min,s:integer;
A:array[1..100] of integer;
begin
clrscr;
write('nhap n:=');readln(n);
for i:=1 to n do
begin
write('nhap mang 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('gia tri lon nhat la',Max);
writeln('gia tri nho nhat la',Min);
readln
end.