Cho 1 dãy số gồm n phần tử n<=15. Giá trị từng phần tử là số thực. Thực hiện các chương trình sau: d) Tìm phần tử có giá trị lớn nhất của dãy
Cho 1 dãy số gồm n phần tử n<=15. Giá trị từng phần tử là số thực. Thực hiện các chương trình sau: d) Tìm phần tử có giá trị lớn nhất của dãy
program solonnhat;
uses crt;
var A:array[1..15] of real;
n,i,vt:byte;
max:real;
begin
clrscr;
write(‘Nhap so luong phan tu n: ‘); readln(n);
write(‘Nhap so thu 1: ‘); readln(A[1]);
max:=A[1]; vt:=1;
for i:=2 to n do
begin
write(‘Nhap so thu ‘,i,’: ‘); readln(A[i]);
if A[i]>max then
begin
max:=A[i];
vt:=i;
end;
end;
write(‘Phan tu lon nhat la: A[‘,vt,’]= ‘,max:2:2);
readln;
end.
uses crt;
var a: array[1..15] of real;
i,n,max: integer;
begin
clrscr;
write (‘nhap so phan tu: ‘); readln (n);
for i:=1 to n do
begin
write (‘nhap phan tu thu ‘,i,’: ‘); readln (a[i]);
if a[i]>max then max:=a[i];
end;
writeln (‘gia tri lon nhat trong day la: ‘,max:1:2);
readln;
end.