Viết chương trình nhập vào bàn phím 30 số nguyên.tìm và đưa ra màn hình giá trị và chỉ số lớn nhất .
2 câu trả lời
Program baitap;
Uses crt;
Var A:array[1..200] of integer;
i,max:integer;
Begin
Clrscr;
For i:=1 to 30 do
Begin
Write('Nhap so thu ',i,':');
Readln(A[i]);
End;
max:=A[1];
For i:=2 to 30 do
If A[i]>max then max:=A[i];
Writeln('So lon nhat:',max);
Readln
End.
program bai_giai;
uses crt;
var a:array[1..30]of longint;i,max,vt:longint;
begin
clrscr;
for i:=1 to 30 do
begin
write('nhap so thu ',i);readln(a[i]);
end;
max:=a[1];
for i:=2 to 30 do if(a[i]>max)then
begin
max:=a[i];
vt:=i;
end;
write('so lon nhat o trong day la:',max,' chi so:',vt);
readln;
end.
