Viết chương trình pascal nhập vào n số nguyên từ bàn phím, tìm số nhỏ nhất trong dãy số vừa nhập.
2 câu trả lời
uses crt;
Var a:array[1..1000] of longint;
i,n,min:longint;
Begin
clrscr;
write('Nhap n: '); readln(n);
For i:=1 to n do
Begin
Write('A[',i,'] = '); Readln(A[i]);
end;
for i:=1 to n do
if a[i]<min then min:=a[i];
write('So nho nhat trong day so vua nhap la: ',min);
readln
end.
program baitap;
uses crt;
var n,i,max : integer;
a : array[1..100] of integer;
begin clrscr;
write('Nhap so n :'); readln(n);
for i:=1 to n do begin
write('Nhap phan tu thu ',i,' la : '); readln(a[i]);
end;
max:=a[1];
for i:=2 to n do if max<a[i] then max:=a[i];
write('So lon nhat trong 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
