Viết chương trình nhập ngẫu nhiên một mảng không quá 100 số nguyên. Tìm số lớn nhất của mảng
Viết chương trình nhập ngẫu nhiên một mảng không quá 100 số nguyên. Tìm số lớn nhất của mảng
By Genesis
By Genesis
Viết chương trình nhập ngẫu nhiên một mảng không quá 100 số nguyên. Tìm số lớn nhất của mảng
program ct;
uses crt;
var i,n,Max:integer;
A:array[1..100] 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;
Max:=A[i];
for i:=2 to n do
if Max<A[i] then Max:=A[i];
writeln(‘so lon nhat cua mang la’,Max);
readln
end.
program timmax;
uses crt;
var A:array[1..100] of integer;
n,i,max:integer;
begin
clrscr;
randomize;
n:=random(100);
for i:=1 to n do
A[i]:=random(32676);
write(‘Mang do la: ‘);
for i:=1 to n do
write(A[i],’ ‘);
max:=A[1];
for i:=2 to n do
if A[i]>max then max:=A[i];
write(‘So lon nhat la: ‘,max);
readln
end.