hoang bai 3 - pascal
program timminmax;
uses crt;
var i,j,n,vtmax,vtmin: integer;
a :array[1..100] of real;
max,min : real;
begin
clrscr;
write('nhap vao so luong phan tu cua day '); readln(n);
for i:= 1 to n do
begin
write('nhap vao gia tri phan tu thu ',i,' = '); readln(a[i]);
end;
max:= a[1]; vtmax:= 1;
for i:=1 to n do
if a[i] > max then
begin
max:=a[i]; vtmax:=i;
end;
writeln('gia tri lon nhat la',max:7:2);
writeln('vi tri cua gia tri lon nhat la',vtmax);
min:=a[1]; vtmin:=1;
for j:= 1 to n do
if a[j] < min then
begin
min:= a[j]; vtmin:=j;
end;
writeln('gia tri nho nhat la ',min:7:2);
write('vi tri cua gia tri nho nhat la',vtmin);
readln;
end.
Bạn đang đọc truyện trên: TruyenTop.Vip