viết chương trình nhập vào 5 số nguyên từ bàn phím vào mảng số nguyên A có 5 phần tử. Sau đó tìm và cho biết phần tử lớn nhất trong mảng A
2 câu trả lời
uses crt;
var arr:array[1..5]of word;
i,maxValue:word;
begin
clrscr;
for i:=1 to 5 do read(arr[i]);
maxValue:=arr[1];
for i:=2 to 5 do
if arr[i]>maxValue then maxValue:=arr[i];
write(maxValue);
readln;
readln;
end.
