Những tài liệu gần giống với tài liệu bạn đang xem
Những tài liệu bạn đã xem
Pascal
program Timsolonnhat; const PT=2; type mang=array[1..PT]of integer; var Max,i,n: integer; VtMax: integer; A: mang; begin writeln(`Nhap mang`); writeln(`.....`); repeat write(`Cho biet so phan tu:`); readln(n); until n for i:=1 to PT do begin
doc Đăng bởi
ngoctuong_hp
