Viết chương trình khởi tạo ngẫu nhiên một dãy số nguyên gồm có N phần tử (0
Viết chương trình khởi tạo ngẫu nhiên một dãy số nguyên gồm có N phần tử (0
By Bella
By Bella
program solonnhat;
uses crt;
var A:array[1..100] of integer;
n,i,max,vt:integer;
begin
clrscr;
write(‘Nhap so luong phan tu N: ‘); readln(n);
randomize;
for i:=1 to n do
A[i]:=random(300);
max:=A[1]; vt:=1;
for i:=1 to n do
begin
write(A[i],’ ‘);
if A[i]>max then
begin
max:=A[i];
vt:=i;
end;
end;
writeln;
writeln(‘Phan tu lon nhat la: ‘,max);
write(‘Co vi tri dau tien la: ‘,vt);
readln
end.
uses crt;
var max:integer;
a:Array[1..100] of integer;
n,i:byte;
BEGIN
clrscr;
write(‘Nhap n:’); readln(n);
randomize;
max:=-300;
for i:=1 to n do
begin
a[i]:=random(601)-300;
if a[i]>max then max:=a[i];
end;
write(‘DAY SO LA:’);
for i:=1 to n do write(a[i],’ ‘);
writeln;
write(‘VI TRI CUA PHAN TU LON NHAT LA:’);
for i:=1 to n do
if a[i]=max then
begin
write(i);
break;
end;
readln
END.
Chúc bạn học tốt.
Cho mik ctlhn nhất nha.