Viết chương trình liệt kê các giá trị lớn nhất trong mảng 1 chiều ?
2 câu trả lời
Program BTT;
Uses crt;
Var A: array[1..10000] of longint;
n,i,max: longint;
Begin
Clrscr;
Write('Nhap so luong phan tu: '); Readln(n);
Max:=0;
For i:=1 to n do
Begin
Write('A[',i,'] = '); Readln(A[i]);
If A[i]>max then max:=A[i];
End;
Write('GTLN la: ',max);
Readln
End.
Program Kookie;
uses crt;
type ArrInt = array[ 1 .. N] of integer;
var
A: ArrInt;
N, i, max :integer;
begin
clrscr;
writeln( ' A [',i,'] = ');
readln(A[i]);
A[i] := Max;
for i:= 1 to N do
if A[i] < A[i+1] then
Max := A[i+1];
writeln(' gia tri lon nhat la : , ' Max);
readln
end .
< mong giúp đc bạn>
