Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
taf.amp

Viết chương trình nhập vào mảng các số nguyên A gồm tối đa 30 phần tử, các phần tử có giá trị không quá 32767? Thông báo ra màn hình phần tử nhỏ nhất và vị trí của nó trong mảng?

 

Kiều Vũ Linh
2 tháng 5 2022 lúc 7:52

Var a:array[1..30] of integer;

i,n,d,max:integer;

Begin

Write('Nhap so luong phan tu cua mang ');readln(n);

For i:=1 to n do

Begin

Write('Nhap phan tu thu ',i,' = ');readln(a[i]);

End;

max:=a[1];

For i:=2 to n do

Begin

If a[i] > max then

Begin

max:=a[i];

d:=i;

End;

End;

Write('Phan tu lon nhat la ',max,' o vi tri ',d);

Readln;

End.


Các câu hỏi tương tự
taf.amp
Xem chi tiết
erddedfrferf ffvf fd
Xem chi tiết
my trần
Xem chi tiết
Thọ Lê Đức
Xem chi tiết
Khue Tran
Xem chi tiết
Minh Duy
Xem chi tiết
Phạm Gia Bình
Xem chi tiết
phạm hải nam
Xem chi tiết
Khue Nguyen
Xem chi tiết