Nhã Linh
01/01/1970
| Số câu hỏi | 0 |
| Số câu trả lời | 1 |
| Điểm | 19 |
| Kết bạn | |
Bạn bè (0)
Hoạt động gần đây (1)
-
Nhã Linh đã trả lời trong câu hỏi: Nhập vào n số nguyên từ bàn phím . in ra màn hình dãy số nguyên vừa nhập . in ra màn hình số nhỏ nhất và số lớn nhất của dãy số đó? Cách đây 4 năm
var a:array[1..10000] of longint;
i:longint;n: longint; max: longint; min: longint;
beginwrite('nhap so phan tu :');
readln(n);
for i:= 1 to n do
begin
write('nhap phan tu thu ',i,':');
readln(a[i]);
end;
max:=a[1]; min:=a[1];
for i:= 2 to n do
begin
if max < a[i] then max:=a[i];if min > a[i] then min:= a[i];
end;
write('so be nhat cua day: ',min,' va so lon nhat cua day: ',max,');
readln
end.
