Question

Viết CT khai báo mảng A có n phần tử nhập giá trị cho các phần tử của mảng A. In ra màng hình số lớn nhất của dãy số

Answer 1

Lời giải:

program hotrotinhoc ;

var A: array[1..32000] of real ;

i,n,SLN : integer ;

begin

write('Nhap do dai cua day so :'); readln(n);

writeln('Nhap gia tri cua cac phan tu');

for i:= 1 to n do

begin

write('A[',i,']='); readln(A[i]);

end;

SLN:=A[1];

for i:= 1 to n do

if A[i] > SLN then SLN:=A[i];

write('So lon nhat cua day so la:',A[i]:2:4);

readln

end.