Làm sao để có câu trả lời hay nhất?
15/05/2023
Câu 1:
uses crt;
var a:array[1..40] of integer;
i,max: integer;
begin
for i:=1 to 40 do
readln(a[i]);
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.
Câu 2:
uses crt;
var tinhoc:array[1..n] of integer;
n,i,min: integer;
begin
readln(n);
for i:=1 to n do
readln(tinhoc[i]);
min:=tinhoc[1];
for i:=2 to n do
if min>tinhoc[i] then min:=tinhoc[i];
writeln('Gia tri nho nhat la:', min);
readln;
end.
15/05/2023
Nếu bạn muốn hỏi bài tập
Các câu hỏi của bạn luôn được giải đáp dưới 10 phút
CÂU HỎI LIÊN QUAN
03/09/2024
02/09/2024
01/09/2024
Top thành viên trả lời