ĐỀ 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
2 câu trả lời
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.
Câu hỏi trong lớp
Xem thêm
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết giúp các em luyện tập và củng cố kiến thức hiệu quả
- Kiểm tra 15 phút lần 1 học kì 1 - đề số 5 Địa 8 có lời giải chi tiết
- Kiểm tra 15 phút lần 1 học kì 1 - đề số 4 Địa 8 có lời giải chi tiết
