ĐỀ 2: Viết chương trình nhập N số nguyên từ bàn phím và in ra màn hình số lớn nhất 13/08/2021 Bởi Genesis ĐỀ 2: Viết chương trình nhập N số nguyên từ bàn phím và in ra màn hình số lớn nhất
uses crt; Var i, n : integer; a : array [1..100] of integer; Begin clrscr; Write(‘Nhap n=’); readln(n); For i:=1 to n do Begin wirte(‘Nhap a[‘,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 cua mang la :’, max); readln end. Bình luận
uses crt;
Var i, n : integer;
a : array [1..100] of integer;
Begin clrscr;
Write(‘Nhap n=’); readln(n);
For i:=1 to n do
Begin wirte(‘Nhap a[‘,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 cua mang la :’, max);
readln
end.
đây bạn nhé