viet chong trinh dung de tim gia tri nho nhat trong 10 phan tu so nguyen nhap tu ban phim
2 câu trả lời
program ct;
uses crt;
var Min,i,n:integer;
A:array[1..10] of integer;
begin
clrscr;
write('nhap n:=');readln(n);
for i:=1 to n do
begin
write('nhap mang A[',i,']:=');readln(A[i]);
end;
Min:=A[1];
for i:=2 to n do
if Min>A[i] then Min:=A[i];
writeln('gia tri nho nhat la:',Min);
readln
end.
uses crt;
var n,i ,min : integer;
a : array[1..100] of integer;
begin clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do begin
write('Nhap a[',i,']='); readln(a[i]); end;
min:=a[1];
for i:=2 to n do if min > a[i] then min:=a[i];
write('Phan tu nho nhat la :', min);
readln
end.
Câu hỏi trong lớp
Xem thêm