Viết chương trình nhập vào n số nguyên từ bàn phím, in ra màn hình số nhỏ nhất

Khách

Hãy nhập câu hỏi của bạn vào đây

Dưới đây là một vài câu hỏi có thể liên quan tới câu hỏi mà bạn gửi lên. Có thể trong đó có câu trả lời mà bạn cần!

2 trả lời

Hãy giải thích MVP là gì (Tin học - Lớp 5)

3 trả lời

Đổi đơn vị (Tin học - Lớp 10)

1 trả lời

Em hãy nêu ví dụ cho thấy thông tin giúp em: (Tin học - Lớp 6)

2 trả lời

Hãy giải thích MVP là gì (Tin học - Lớp 5)

3 trả lời

Đổi đơn vị (Tin học - Lớp 10)

1 trả lời

program vietjack;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 beginwrite('Nhap phan tu thu ',i,' la : '); readln(a[i]);end;max:=a[1];for i:=2 to n do if max

write('So *** nhat trong mang la :', max);

min:=a[1];for i:=2 to n do if min>a[i] then min:=a[i];write('So nho nhat trong mang la :', min);readln

end.

• lý thuyết
• trắc nghiệm
• hỏi đáp
• bài tập sgk

Viết chương trình nhập N số nguyên nhập từ bàn phím, in ra màn hình số nhỏ nhất và lớn nhất?

Các câu hỏi tương tự

• lý thuyết
• trắc nghiệm
• hỏi đáp
• bài tập sgk

Viết chương trình nhập vào N số nguyên từ bàn phím in ra màn hình số nhỏ nhất

Các câu hỏi tương tự

program tim_max_min ;

var i,n,max,min:integer;

a:array[1..100] of integer;

begin

write('nhap do dai cua day so n=');readln(n);

writeln('nhap cac phan tu cua day so :');

for i:=1 to n do

begin

write('a[',i,']=');readln(a[i]);

end;

max :=a[1] ; min:=a[1];

for i:=2 to n do

begin

if max

if min >a[i] then min :=a[i];

end;

writeln('so lon nhat la:',max);

writeln('so be nhat la:',min);

readln

end.