Tìm max cho dãy : 1 ,40 ,4 ,33 , 99 , 2 , 250 . n = 7 ( giúp em nhanh với ạ , em đang cần gấp )
1 câu trả lời
program baigiai;
uses crt;
var a:array[1..1000]of longint;i,max:longint;
begin
clrscr;
a[1]:=1;
a[2]:=40;
a[3]:=4;
a[4]:=33;
a[5]:=99;
a[6]:=2;
a[7]:=250;
max:=0;
for i:=1 to 7 do if(a[i]>max) then max:=a[i];
write('so lon nhat trong day la: ',max);
readln
end.
đây nhá bạn
Câu hỏi trong lớp
Xem thêm
