Viết chương con trình tìm số lớn nhất của dãy số T gồm s phần tử số nguyên (s nhỏ hơn hoặc bằng 500) giúp mình với ạ
Question
Lost your password? Please enter your email address. You will receive a link and will create a new password via email.
Answers ( )
uses crt;
var T:array[1..500] of integer;
i,n,max:integer;
procedure TT;
begin
for i:=1 to n do
begin
write(‘Nhap phan tu thu ‘,i,’: ‘);
readln(T[i]);
end;
max:=T[1];
for i:=2 to n do if T[i]>max then max:=T[i];
write(‘Max=’,Max);
end;
begin
clrscr;
write(‘Nhap n: ‘); readln(n);
TT;
readln;
end.
program:Bai_tap_1;
uses crt;
var T:array[1..500] of integer;
i,n,max:integer;
procedure TT;
begin
for i:=1 to n do
begin
write(‘Nhap phan tu thu ‘,i,’: ‘);
readln(T[i]);
end;
max:=T[1];
for i:=2 to n do if T[i]>max then max:=T[i];
write(‘Max=’,Max);
end;
begin
clrscr;
write(‘Nhap n: ‘); readln(n);
TT;
readln;
end.