Trang Chính
Tìm kiếm
Latest images
Đăng ký
Đăng Nhập
program tim_max ;
uses crt;
const
nmax=250;
type
arrint=array [1..nmax] of integer;
var max,n,i ,csmax:integer;
a:arrint;
begin
clrscr;
write('nhap so luong phan tu cua day so ,N=');
readln(n);
for i:=1 to n do
begin
write('phan tu thu ',i,'=');
readln(a[1]);
end;
max:=a[1];csmax:=1;
for i:=2to n do
if a[i]>max then
begin
max:=a[i];
csmax:=i;
end;
writeln('gia tri cua phan tu max:',max);
writeln('chi so phan tu max:',csmax);
write('an phim <enter> de ket thuc ');
readln
end.
uses crt;
const
nmax=250;
type
arrint=array [1..nmax] of integer;
var max,n,i ,csmax:integer;
a:arrint;
begin
clrscr;
write('nhap so luong phan tu cua day so ,N=');
readln(n);
for i:=1 to n do
begin
write('phan tu thu ',i,'=');
readln(a[1]);
end;
max:=a[1];csmax:=1;
for i:=2to n do
if a[i]>max then
begin
max:=a[i];
csmax:=i;
end;
writeln('gia tri cua phan tu max:',max);
writeln('chi so phan tu max:',csmax);
write('an phim <enter> de ket thuc ');
readln
end.
» Người ta bận yêu, còn em bận cô đơn…
» Đông đến làm người ta cô đơn hơn phải không anh?
» Em muốn được ôm anh từ phía sau
» Hãy cho nhau một cơ hội để giãi bày!
» Hãy cho nhau một cơ hội để giãi bày!
» Đôi lúc em chỉ muốn mình thuộc về ai đó thôi...
» Trái đất này, ba phần tư là nước mắt...
» Để anh kể em nghe về những người phụ nữ anh yêu...
» Thương vội người đến sau...