ĐỀ 2: Viết chương trình nhập N số nguyên từ bàn phím và in ra màn hình số lớn nhất 13/08/2021 Bởi Daisy ĐỀ 2: Viết chương trình nhập N số nguyên từ bàn phím và in ra màn hình số lớn nhất
program tim_max_min ; var i,n,max,min:integer; a:array[1..100] of integer; begin 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); writeln(‘so be nhat la:’,min); readln end. chúc bạn học tốt-fewlove Bình luận
uses crt; Var i, n : integer; a : array [1..100] of integer; Begin clrscr; Write(‘Nhap n=’); readln(n); For i:=1 to n do Begin wirte(‘Nhap a[‘,i,’]=’); readln(a[i]); End; max :=a[1]; For i:=2 to n do if a[i] > max then max :=a[i]; Write(‘Gia tri lon nhat cua mang la :’, max); readln end. Bình luận
program tim_max_min ;
var i,n,max,min:integer;
a:array[1..100] of integer;
begin
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);
writeln(‘so be nhat la:’,min);
readln
end.
chúc bạn học tốt-fewlove
uses crt;
Var i, n : integer;
a : array [1..100] of integer;
Begin clrscr;
Write(‘Nhap n=’); readln(n);
For i:=1 to n do
Begin wirte(‘Nhap a[‘,i,’]=’); readln(a[i]);
End;
max :=a[1];
For i:=2 to n do if a[i] > max then max :=a[i];
Write(‘Gia tri lon nhat cua mang la :’, max);
readln
end.