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.
a: Thực hiện 5 vòng lặp
T=35
j=11
b: Câu lệnh chưa biết trước là while-do, và chương trình của bạn chỉ cần sửa lại chỗ j:=1 thành b:=1 mà thôi
1. uses crt;
var a,vt:array[1..100]of integer;
n,i,t,dem:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
repeat
write('A[',i,']='); readln(a[i]);
until a[i]>=0;
end;
t:=0;
for i:=1 to n do
begin
if t<100 then
begin
t:=t+a[i];
dem:=dem+1;
vt[dem]:=i;
end;
end;
writeln(vt[dem]);
readln;
end.
Câu 2:
uses crt;
var a:array[1..30]of integer;
i,n,kt:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
kt:=0;
for i:=1 to n-1 do
if a[i]>=a[j] then kt:=1;
if kt=0 then writeln('Day la day so khong giam')
else writeln('Day khong la day so khong giam');
readln;
end.
program CompareNumbers;
var
x, y: real;
begin
// Bước 1: Nhập 2 số thực x và y từ bàn phím
write('Nhap so thuc x: ');
readln(x);
write('Nhap so thuc y: ');
readln(y);
// Bước 2: So sánh x và y, in ra số lớn hơn
if x > y then
writeln('x lon hon y')
else if x < y then
writeln('y lon hon x')
else
writeln('x bang y');
readln;
end.
(khoog bt đúng ko)
In ra kết quả gì nếu xảy ra 1 trong 2 trường hợp vậy bạn?
program son;
var
i,n:integer;
a:array[1..32000] of integer;
begin
write(' nhap n : '); readln(n);
for i:= 1 to n do
begin
write(' nhap a[',i,']');
readln(a[i]);
end;
for i:= 1 to n do
if a[i] mod 2 <> 0 then write(a[i],' ')
readln
end.
Program hotrotinhoc ;
var n,i : integer ;
begin
write('Nhap gia tri cua n:'); readln(n);
i:=1;
while i <= n do
begin
i:=i+2 ;
if i mod 2 = 1 then write(i);
end;
readln
end.