Bài 9. Làm việc với dãy số

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

viết chương trình nhâp vào mảng các số nguyên A gồm tối đã 30 phần tử có giá trị không quá 255, thông báo ra màn hình phần tử lớn nhất và vị trí của nó trong mảng

Kiều Vũ Linh
27 tháng 4 2023 lúc 8:07

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

i,max,d:integer;

Begin

For i:=1 to 30 do

Begin

Repeat

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

Until a[i]<=255;

End;

max:=a[1];

d:=1;

For i:=2 to 30 do

If a[i] > max then

Begin

max:=a[i];

d:=i;

End;

Write('Phan tu lon nhat la ',max,' tai vi tri ',i);

Readln

End.


Các câu hỏi tương tự
Ánh sao
Xem chi tiết
Ánh sao
Xem chi tiết
Bửu Nguyễn Đắc
Xem chi tiết
Ánh sao
Xem chi tiết
Ánh sao
Xem chi tiết
Ánh sao
Xem chi tiết
Phan Hùng Anh
Xem chi tiết
Thị Na Trần
Xem chi tiết
Tiểu cường
Xem chi tiết