K
Khách
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.
Các câu hỏi dưới đây có thể giống với câu hỏi trên
12 tháng 4 2021
uses crt;
var a:array[1..100]of integer;
i,n,dem:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
dem:=0;
for i:=1 to n do
if (10<a[i]) and (a[i]<20) then inc(dem);
writeln(dem);
readln;
end.
20 tháng 4 2021
Câu 1:
uses crt;
var n,i,ln,max,j,t:integer;
begin
clrscr;
write('Nhap n='); readln(n);
max:=0;
ln:=1;
for i:=1 to n do
begin
t:=0;
for j:=1 to i do
if i mod j=0 then t:=t+j;
if ln<t then max:=i;
end;
writeln(max);
readln;
end.
21 tháng 4 2021
Cho n =1000000 thì load hơi chậm bạn à, với lại mấy cái biến phải là longint chứ nhỉ
21 tháng 2 2022
uses crt;
var a:array[1..15]of integer;
n,i,k:integer;
kt:boolean;
begin
clrscr;
readln(n);
for i:=1 to n do readln(a[i]);
readln(k);
kt:=false;
for i:=1 to n do
if a[i]=k then
begin
kt:=true;
break;
end;
for i:=1 to n do write(a[i]:4);
writeln;
if (kt=true) then writeln('Trong mang co ton tai phan tu co gia tri la K')
else writeln('Khong ton tai phan tu co gia tri la k');
readln;
end.
BA
8 tháng 4 2021
Lỗi 201. Range check error: Lỗi kiểm tra vùng xãy ra.
Nếu trình biên dịch có chế độ Kiểm tra vùng (Range-Checking) được mở, thì có thể xãy ra các lỗi sau:
Lỗi 1. An array was accessed with an index outside its declared range: Có lệnh truy cập vào 1 vùng nằm ngoài khai báo 1 Array.
Lỗi 2. Trying to assign a value to a variable outside its range (for instance an enumerated type): Có lệnh gán giá trị vượt quá giới hạn giá trị của biến.
8 tháng 4 2021
Nhập số bé hơn đi bạn, cái lỗi này thường sẽ xảy ra khi bạn nhập số quá lớn