Viết phương trình nhập vào hai mảng nguyên gồm 10 phần tử. Đưa ra giá trị nhỏ nhất của 2 mảng đó.
( viết phương trình pascal nha các bạn ơi :_) )
Viết phương trình nhập vào hai mảng nguyên gồm 10 phần tử. Đưa ra giá trị nhỏ nhất của 2 mảng đó.
( viết phương trình pascal nha các bạn ơi :_) )
program ct;
uses crt;
var A,B:array[1..10] of integer;
i,min:integer;
begin clrscr;
for i:=1 to 10 do
begin
write(‘Nhap phan tu thu ‘,i,’ cua mang A: ‘); readln(A[i]);
end;
for i:=1 to 10 do
begin
write(‘Nhap phan tu thu ‘,i,’ cua mang B: ‘); readln(B[i]);
end;
min:=A[1];
for i:=1 to 10 do
begin
if A[i]<min then min:=A[i];
if B[i]<min then min:=B[i];
end;
write(‘Gia tri nho nhat cua hai mang do la: ‘,min);
readln;
end.
Học tốt!
uses crt;
var A:array[1..10] of integer;
B:array[1..10] of integer;
i,n,min:integer;
begin
clrscr;
for i:=1 to 10 do
begin
write(‘Nhap phan tu thu ‘,i,’ cua mang A: ‘);
readln(A[i]);
end;
min:=A[1];
for i:=2 to 10 do if A[i]<min then min:=A[i];
for i:=1 to 10 do
begin
write(‘Nhap phan tu thu ‘,i,’ cua mang B: ‘);
readln(B[i]);
if B[i]<min then min:=B[i];
end;
write(‘Gia tri nho nhat cua 2 mang la: ‘,min);
readln
end.