Viết chương chương trình nhập vào 1 mạng gồm n số thực tìm giá trị của phần tử lớn nhất giá trị của phần tử nhỏ nhất. in kết quả ra màn hình
Viết chương chương trình nhập vào 1 mạng gồm n số thực tìm giá trị của phần tử lớn nhất giá trị của phần tử nhỏ nhất. in kết quả ra màn hình
Uses crt;
Var i,n,max,min: integer;
a: array[1..100] of integer;
Begin
Clrscr;
Write(‘ Nhap do dai cua day so, n= ‘);
Readln(n);
Writeln(‘Nhap cac phan tu cua day so: ‘);
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(‘Gtri lon nhat trong day la: ‘, max, ‘.Va vi tri cua no nam o:’);
For i:=1 to n do if max=a[i] then write(i:4); Writeln;
Writeln(‘Gtri nho nhat trong day la: ‘, min, ‘.Va vi tri cua no nam o:’);
For i:=1 to n do if min=a[i] then writeln(i:4);
Readln;
End.
*Nhớ tick và chọn làm câu trả lời hay nhất giúp mình nhé! Đa tạ 😀
*Dù số nhỏ nhất có là 1 hay 2,.. thì min kết quả vẫn chỉ đúng số đó 😀
program Mang;
uses crt;
var A:array [1..500] of integer;
n,i,max,min: integer;
Begin
clrscr;
write(‘Nhap so phann tu: ‘); readln(n);
max:=1; min:=1;
for i:=1 to n do
begin
write(‘A[‘,i,’]=’); readln(A[i]);
if max<A[i] then max:=A[i];
if min>A[i] then min:=A[i];
end;
write(‘max = ‘,max,’ , min = ‘,min);
readln
End.