Viết chương trình tìm và đếm số lớn nhất trong mảng A gồm N số nguyên dương a1, a2, …, aN. Thoã N <200. Viết chương trình pascal ạ
1 câu trả lời
Program bt;
Uses crt;
Var
n,i,max:integer;
A:array[1..100] of integer;
Begin
Clrscr;
write('Nhap n: '); readln(n);
For i:=1 to n do readln(A[i]);
Max:=A[i];
For i:=2 to n do if A[i]>max then max:=A[i];
write(max);
readln;
End.
#HNgoc
Câu hỏi trong lớp
Xem thêm
