Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
var s:string;
i:integer;
begin
write('Nhap xau ki tu S = ');readln(s);
for i:=1 to length(s) do
begin
if s[i] <> '0' then write('Vi tri cua so 0 cuoi cung la ',i-1);
i:=length(s);
end;
readln;
end.
uses crt;
var a: array[1..100] of longint;
i,n,max,min: longint;
begin
clrscr;
readln(n);
for i:=1 to n do
begin
write('Nhap so thu ',i,': ');
readln(a[i]);
end;
max:=a[1]; min:=a[1];
for i:=1 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 trong mang la: ',max);
write('So nho nhat trong mang la: ',min);
readln
end.
tham khảo :
Bước 1: Đặt trỏ chuột tại vị trí bạn muốn thêm bảng, chọn Insert > Chọn Table > Chọn Insert Table. Bước 2: Nhập số cột của bảng trong phần Number of columns > Nhập số hàng của bảng trong phần Number of rows. Sau cùng nhấn OK để tạo bảng
chọn lệnh Insert trong nhóm lệnh Cells của dãy lệnh Home
chọn lệnh Insert trong nhóm lệnh Cells của dãy lệnh Home