viết ct giải quyết bài toán tìm số lớn nhất (sử dụng for to do và câu lệnh điều kiện)
2 câu trả lời
program ct;
uses crt;
var i,n,Max:integer;
A:array[1..100] of integer;
begin
clrscr;
write('nhap n:=');readln(n);
for i:=1 to n do
begin
write('nhap mang A[',i,']:=');readln(A[i]);
end;
Max:=A[1];
for i:=2 to n do
if Max<A[i] then Max:=A[i];
writeln('gia tri lon nhat la',Max);
readln
end.
var A: array [1..100] of integer;
max, i, n: integer;
begin
write ('nhap so luong phan tu : ' )
readln (n);
for i:=1 to n do
begin
write ('nhap phan tu thu', i);
readln (A [ i ]);
end;
max : = a [ i ];
for i: = 2 to n do
if A [ i ] > max then
max : = a [ i ];
write ( 'so lon nhat la =', max);
readln
end.
chúc bạn học tốt
Câu hỏi trong lớp
Xem thêm