Hãy viết chương trình n số nguyên từ bàn phím in ra màn hình các số đó và tìm giá trị lớn nhất
Hãy viết chương trình n số nguyên từ bàn phím in ra màn hình các số đó và tìm giá trị lớn nhất
By Everleigh
By Everleigh
Hãy viết chương trình n số nguyên từ bàn phím in ra màn hình các số đó và tìm giá trị lớn nhất
Var a:array [1..100] of longint;
Max,n,i:longint;
Begin
Readln(n);
For i:=1 to n do
Readln (A[i]);
For i:=1 to n do
Write(A[i]);
Max :=A[1];
For i:= 2 to n do
If max < A[i] then Max := A[i];
Writeln(‘So lon nhat la’ ,Max);
Readln
End.
Uses Crt;
Var a:array[1..1000] of integer;
i,n,max:integer;
Begin
Clrscr;
Write(‘Nhap so ptu n= ‘); Readln(n);
For i:=1 to n do
Begin
Write(‘Nhap a[‘,i,’]= ‘); Readln(a[i]);
End;
Writeln;
Write(‘Cac ptu trong day tren la: ‘);
For i:= 1 to n do write(a[i]:3);
max:=a[1];
Writeln;
Write(‘Gia tri lon nhat trong day la: ‘);
For i:= 2 to n do
Begin
If max<a[i] then max:=a[i];
End;
Write(a[i]:3);
Readln
End.
*Nhớ tick và chọn làm câu trả lời hay nhất giúp mình với nhé! Đa tạ! Đa tạ :33
*Có gì cần hỏi thì comment bên dưới nhá 😀