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 { "@context": "https://schema.org", "@type": "QAPage", "mainEntity": { "@type": "Question", "name": " 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
0 bình luận về “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<N<=100), mỗi phần tử có giá trị tuyệt đối <300. Tìm vị trí của phần tử lớn”
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.
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.