Viết chương trình nhập vào n phần tử xuất kết quả giá trị lớn nhất trong các phần tử vừa nhập 16/07/2021 Bởi Parker Viết chương trình nhập vào n phần tử xuất kết quả giá trị lớn nhất trong các phần tử vừa nhập
var a: array[1..250] of integer; max: integer; i, n: byte; Begin Write(‘N = ‘); readln(n); For i:=1 to n do Begin Write(‘a[‘, i, ‘] = ‘); readln(a[i]); If i=1 then max:=a[1] Else if a[i]>max then max:=a[i]: End; Write(‘so lon nhat: ‘, max); Readln End. Bình luận
program lon_nhat; uses crt; var A:array[1..100] of integer; n,i,max:integer; begin clrscr; write(‘Nhap n: ‘); readln(n); for i:=1 to n do begin write(‘Nhap so thu ‘,i,’: ‘); readln(A[i]); end; max:=A[1]; for i:=2 to n do if A[i]>max then max:=A[i]; write(‘Gia tri lon nhat la: ‘,max); readln; end. Bình luận
var a: array[1..250] of integer;
max: integer;
i, n: byte;
Begin
Write(‘N = ‘); readln(n);
For i:=1 to n do
Begin
Write(‘a[‘, i, ‘] = ‘); readln(a[i]);
If i=1 then max:=a[1]
Else if a[i]>max then max:=a[i]:
End;
Write(‘so lon nhat: ‘, max);
Readln
End.
program lon_nhat;
uses crt;
var A:array[1..100] of integer;
n,i,max:integer;
begin
clrscr;
write(‘Nhap n: ‘); readln(n);
for i:=1 to n do
begin
write(‘Nhap so thu ‘,i,’: ‘); readln(A[i]);
end;
max:=A[1];
for i:=2 to n do
if A[i]>max then max:=A[i];
write(‘Gia tri lon nhat la: ‘,max);
readln;
end.