NN

In ra giá trị lớn nhất trong 1 dãy N số

PL
23 tháng 4 2021 lúc 21:11

8

Bình luận (0)
NT
23 tháng 4 2021 lúc 22:29

uses crt;

var a:array[1..100]of integer;

i,n,max:integer;

begin

clrscr;

write('Nhap n='); readln(n);

for i:=1 to n do 

begin

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

end;

max:=a[1];

for i:=1 to n do 

  if max<a[i] then max:=a[i];

writeln(max);

readln;

end.

Bình luận (0)

Các câu hỏi tương tự
NT
Xem chi tiết
H24
Xem chi tiết
TT
Xem chi tiết
LP
Xem chi tiết
BV
Xem chi tiết
HL
Xem chi tiết
AD
Xem chi tiết
HM
Xem chi tiết
NN
Xem chi tiết