cho mảng a từ 1 đến n
nhập n
nhập mảng a từ 1 đến n
tìm số lớn nhất trong mảng a
cho mảng a từ 1 đến n nhập n nhập mảng a từ 1 đến n tìm số lớn nhất trong mảng a
By Savannah
By Savannah
cho mảng a từ 1 đến n
nhập n
nhập mảng a từ 1 đến n
tìm số lớn nhất trong mảng a
*Pascal:
program bt;
uses crt;
var a: array[1..n] of integer;
n, i, max: integer;
begin
clrscr;
write(‘Nhap n la:’); readln(n);
for i := 1 to n do begin
write(‘Nhap a[‘,i,’]=’);
readln(a[i]);
end;
max := a[1];
for i := 2 to n do if a[i] > max then max := a[i];
writeln(‘So lon nhat trong mang la:’, max :3);
readln
end.
*C/C++:
void nhap(int a[], int n)
{
for (int i = 0; i < n; i++)
{
printf(“Nhap vao phan tu a[%d]: “, i);
scanf(“%d”, &a[i]);
}
}
int max(int a[], int n)
{
int max = a[0];
for (int i = 1; i < n; i++)
if (max < a[i])
max = a[i];
return max;
}
int main()
{
int a[1000];
int n;
printf(“\nNhap n = “);
scanf(“%d”, &n);
nhap(a, n);
printf(“\nMax = %d”, max(a, n));
return 0;
}
Xin câu trả lời hay nhất ạ :3
program mang;
uses crt;
var A:array [1..100] of integer;
n,i,max: integer;
Begin
clrscr;
write(‘Nhap n: ‘); readln(n);
for i:=1 to n do
begin
write(‘A[‘,i,’]=’); readln(A[i]);
end;
max:=A[1];
for i:=1 to n do
if max<A[i] then max:=A[i];
write(‘So lon nhat trong mang la: ‘,max);
readln
End.