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.
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.
Bài 2:
uses crt;
var a:array[1..30]of integer;
i,n,kt:integer;
begin
clrscr;
write('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[i+1] then kt:=1;
if kt=0 then write('Day so khong giam')
else writeln('Day so lon xon');
readln;
end.
program TinhSanLuongLua;
var
num_households, i: integer;
xom3_harvest, xom6_harvest: array[1…100] of real;
xom3_total, xom6_total, xom3_avg, xom6_avg: real;
begin
// Nhập vào số lượng hộ gia đình ở xóm 3 và xóm 6
write('Nhap so luong ho gia dinh o xom 3 va xom 6: ');
readln(num_households);
// Nhập vào sản lượng thu hoạch lúa của từng hộ gia đình ở xóm 3
writeln('Nhap san luong thu hoach lua cua tung ho gia dinh o xom 3:');
for i := 1 to num_households do
begin
write('San luong thu hoach lua cua ho gia dinh ', i, ': ');
readln(xom3_harvest[i]);
end;
// Nhập vào sản lượng thu hoạch lúa của từng hộ gia đình ở xóm 6
writeln('Nhap san luong thu hoach lua cua tung ho gia dinh o xom 6:');
for i := 1 to num_households do
begin
write('San luong thu hoach lua cua ho gia dinh ', i, ': ');
readln(xom6_harvest[i]);
end;
// Tính tổng sản lượng thu hoạch lúa của từng xóm
xom3_total := 0;
xom6_total := 0;
for i := 1 to num_households do
begin
xom3_total := xom3_total + xom3_harvest[i];
xom6_total := xom6_total + xom6_harvest[i];
end;
// Tính sản lượng thu hoạch lúa trung bình của mỗi hộ gia đình ở từng xóm
xom3_avg := xom3_total / num_households;
xom6_avg := xom6_total / num_households;
// In ra màn hình sản lượng thu hoạch lúa trung bình của mỗi hộ gia đình ở từng xóm
writeln('San luong thu hoach lua trung binh cua moi ho gia dinh o xom 3 la: ', xom3_avg:0:2);
writeln('San luong thu hoach lua trung binh cua moi ho gia dinh o xom 6 la: ', xom6_avg:0:2);
Bạn tham khảo
program TinhSanLuongLua;
const
SoHoGiaDinh = 5;
var SanLuongXom3: array[1..SoHoGiaDinh] of Integer;
SanLuongXom6: array[1..SoHoGiaDinh] of Integer;
i: Integer;
begin
writeln('Nhap vao san luong thu hoach lua cua moi ho gia dinh o xom 3:');
for i := 1 to SoHoGiaDinh do
begin
write('Ho gia dinh ', i, ': ');
readln(SanLuongXom3[i]);
end;
writeln('Nhap vao san luong thu hoach lua cua moi ho gia dinh o xom 6:');
for i := 1 to SoHoGiaDinh do
begin
write('Ho gia dinh ', i, ': ');
readln(SanLuongXom6[i]);
end;
writeln('Chenh lech san luong thu hoach lua cua moi ho gia dinh o xom 3:');
for i := 1 to SoHoGiaDinh do
begin
writeln('Ho gia dinh ', i, ': ', SanLuongXom3[i] - SanLuongXom6[i]);
end;
readln;
end.
INP: 150 hóa đơn
OUT: Tổng số tiền của 150 hóa đơn
Thuật toán
B1: Nhập các số tiền hóa đơn a[1],a[2],...,a[150]
B2: t←0; i←1;
B3: Nếu i<=n thì in ra tổng số tiền và kết thúc
B4: t←t+a[i]; quay lại bước 3
B5: i←i+1; quay lại bước 3.
*Viết chương trình
program hotrotinhoc;
var i,t: longint;
a: array[1..150] of longint;
begin
for i:=1 to 150 do
begin
write('Nhap hoa don so ',i ,':'); readln(a[i]);
end;
t:=0; i:=1;
while i<=n do
begin
t:=t+a[i];
i:=i+1;
end;
write('Tong so tien la : ',t);
readln
end.
Bn coppy bàu khác qua đây hả mik thấy giống y chang, vs lại n là gì vậy
Program phi_dichvu;
const n = 12;
Var a, b, c: array[1..n] of integer;
i, tong1, tong2, tong3, tong, max, k: integer;
begin
{a. Nhập cước phí điện thoại, điện tiêu dùng và Internet(đừng ghi nhé, chỉ là để làm dấu chỗ làm thôi)}
for i:=1 to n do
begin
writeln('Nhap cac khoan chi dich vu thang thu ', i);
write('Tien dien thoai: '); readln(a[i]);
write('Tien dien tieu dung: '); readln(b[i]);
write('Tien Internet: '); readln(c[i]);
end;
writeln;
{b. Tính tổng số tiền phải trả trong năm}
tong1:=0; tong2:=0; tong3:=0;
for i:=1 to n do
begin tong1:=tong1+a[i];
tong2:=tong2+b[i];
tong3:=tong3+c[i];
end;
tong:=tong1+tong2+tong3;
writeln('Tong so tien chi dinh ki trong nam qua: ', tong);
writeln:
{c.tìm dịch vụ có tổng chi cao nhất}
max:=tong1; k:=1;
if max<tong2 then k:=2;
if max< tong3 then k:=3;
if k=1 then writeln('Tiền chi cho điện thoại cao nhất.')
else if k=2 then writeln ('Tiền chi cho điện cao nhất.')
else writeln('Tien chi cho Internet cao nhat.');
writeln;
{d. Tính trung bình khoản chi dịch vụ mỗi tháng}
writeln('Chi dich vu trung binh hang thang la: ', tong div n);
readln;
end.