Mong mn giúp mình giải câu này với
Viết chương trình tìm ra số lớn nhất của dãy số nguyên nhập vào từ bàn phím
0 bình luận về “Mong mn giúp mình giải câu này với Viết chương trình tìm ra số lớn nhất của dãy số nguyên nhập vào từ bàn phím”
: Uses crt; Var i: integer; n: integer; max: integer; min: integer; a: array[1..100] of integer; Begin Clrscr; Write(‘ Nhap do dai cua day so, n= ‘); Readln(n); Writeln(‘Nhap cac phan tu cua day so: ‘); For i:= 1 to n do Begin Write(‘a[‘, i, ‘]= ‘); Readln(a[i]); End; max:= a[1]; min:= a[1]; For i:= 2 to n do Begin If max < a[i] then max:= a[i]; If min > a[i] then min:= a[i]; End; Writeln(‘So lon nhat la max= ‘, max) min=,Readln; end.
: Uses crt; Var i: integer; n: integer; max: integer; min: integer; a: array[1..100] of integer; Begin Clrscr; Write(‘ Nhap do dai cua day so, n= ‘); Readln(n); Writeln(‘Nhap cac phan tu cua day so: ‘); For i:= 1 to n do Begin Write(‘a[‘, i, ‘]= ‘); Readln(a[i]); End; max:= a[1]; min:= a[1]; For i:= 2 to n do Begin If max < a[i] then max:= a[i]; If min > a[i] then min:= a[i]; End; Writeln(‘So lon nhat la max= ‘, max) min=,Readln; end.
Program Hotboy;
Uses crt;
Var a:array[1..100] of integer ;
I,n,s: longint;
Begin
Clrscr;
Write(‘nhap so phan tu cua mang’); readln(n);
For i:=1 to n do
Begin
Write(‘A[‘,i,’]’); readln(A[i]);
End;
S:=A[1];
For i:=1 to n do
If A[i] >S then S:=A[i];
Write(‘gia tri lon nhat trong mang la’,S);
Readln
End.