Bài 11: Kiểu mảng

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Trang Huyền Phùng Offici...

 nhập vào một dãy số nguyên gồm tối đa 250 phần tử mỗi phần tử đều không vượt quá 500 yêu cầu đưa ra vị trí và giá trị lớn nhất của dãy số vừa nhận

Nguyễn Lê Phước Thịnh
27 tháng 1 2021 lúc 20:10

uses crt;

var a,vt:array[1..250]of integer;

i,n,max,dem:integer;

begin

clrscr;

repeat

write('Nhap n='); readln(n);

until (0<n) and (n<=250);

for i:=1 to n do 

begin

repeat

write('A[',i,']='); readln(a[i]);

until a[i]<=500;

end;

max:=a[1];

dem:=0;

for i:=1 to n do 

  if max<a[i] then max:=a[i];

for i:=1 to n do 

  if max=a[i] then 

begin

inc(dem);

vt[dem]:=i;

end;

writeln('Gia tri lon nhat la: ',max);

write('Vi tri: ');

for i:=1 to dem do 

  write(vt[i]:4);

readln;

end.


Các câu hỏi tương tự
Lê Phương Thảo
Xem chi tiết
Phạm anh vũ
Xem chi tiết
Anh Lê duy
Xem chi tiết
Anh Lê duy
Xem chi tiết
Anh Lê duy
Xem chi tiết
Anh Lê duy
Xem chi tiết
Anh Lê duy
Xem chi tiết
Anh Thư
Xem chi tiết
Nam Vũ Thị
Xem chi tiết