Question

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

Answer 1

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.