Viết chương trình tìm Min của dãy số nguyên a1,a2,...an đưa ra chỉ số của giá trị Min kết quả ghi lại ra tệp
viết chương trình nhập từ bàn phím số nguyên dương n và dãy số nguyên a1 a2 đến an đưa dãy vừa nhập ra màn hình tính tổng các số chia hết cho 7 đưa kết quả ra màn hình
uses crt;
var a:array[1..100]of integer;
i,n,t:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
for i:=1 to n do
write(a[i]:4);
writeln;
t:=0;
for i:=1 to n do
if a[i] mod 7=0 then t:=t+a[i];
writeln('Tong cac so chia het cho 7 la: ',t);
readln;
end.
viết chương trình nhập từ bàn phím số nguyên dương N( N<=100) và dãy số nguyên A1,A2,...An có trị tuyệt đối nhỏ hơn 1000. Đưa ra màn hình các thông tin sau :
a. Tổng số nguyên chẵn , tổng số nguyên lẻ của dãy số.
b.Tổng giá trị của dãy số .
ai giúp em với ạ, em xin cám ơn
uses crt;
var a:array[1..100]of integer;
i,n,tc,tl,t:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
tc:=0;
tl:=0;
for i:=1 to n do
begin
if a[i] mod 2=0 then tc:=tc+a[i]
else tl:=tl+a[i];
end;
writeln('Tong cac so chan la: ',tc);
writeln('Tong cac so le la: ',tl);
t:=0;
for i:=1 to n do
t:=t+a[i];
writeln('Tong cua day so la: ',t);
readln;
end.
giúp em với 2 câu thôi ạ :
viết chương trình nhập vào xâu bất kì từ bàn phím , ghi xâu sau khi loại bỏ các dấu cách ra tệp D:\ketqua.txt
viết chương trình nhập vào từ bàn phím 4 số bất A,B,C. tìm và thông báo kết quả ra màn hình giá trị nhỏ nhất MIN của 4 số đó có sử dụng chương trình con
1:
uses crt;
const fi='ketqua.txt'
var f1:text;
st:string;
i,d:integer;
begin
clrscr;
assign(f1,fi); rewrite(f1);
write('Nhap xau:'); readln(st);
d:=length(st);
for i:=1 to d do
if st[i]=#32 then delete(st,i,1);
writeln(f1,st);
close(f1);
end.
2:
uses crt;
var a,b,c,d:integer;
{----------chuong-trinh-con-----------------------}
function min(x,y:integer):integer;
begin
if x<y then min:=x
else min:=y;
end;
{---------------chuong-trinh-chinh--------------------}
begin
clrscr;
write('a='); readln(a);
write('b='); readln(b);
write('c='); readln(c);
write('d='); readln(d);
writeln(min(a,min(b,min(c,d))));
readln;
end.
giúp em với ạ!
Viết chương trình nhập từ bàn phím số nguyên dương N (N<=100) và dãy số A1, A2,...An. đưa ra màn hình tổng các số nguyên chẵn của dãy số.
Program HOC24;
var i,n: byte;
A: array[1..100] of integer;
t: longint;
begin
write('Nhap N: '); readln(N);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
t:=0;
for i:=1 to n do if a[i] mod 2=0 then t:=t+a[i];
write('Tong cac so chan la: ',t);
readln
end.
giả sử tệp "Dulieu.txt" có cấu trúc: Dòng 1 ghi 1 số nguyên N kiểu int; dòng 2 trở đi ghi dãy số thực A1, A2, ..., An. Yêu cầu đọc dữ liệu từ tệp, tính tổng các giá trị của dãy rồi xuất ra màn hình
uses crt;
const fi='dulieu.txt'
var f1:text;
a:array[1..100]of real;
t:real;
i,n:integer;
begin
clrscr;
assign(f1,fi); reset(f1);
readln(f1,n);
for i:=1 to n do readln(f1,a[i]);
t:=0;
for i:=1 to n do t:=t+a[i];
writeln(t);
close(f1);
readln;
end.
viết chương trình nhập vào số nguyên dương n và dãy a có n số nguyên a1,a2,a3,...,an. tính giá trị trung bình của các số có giá trị dương ở vị trí lẻ ra màn hình
#include <bits/stdc++.h>
using namespace std;
long long a[1000],i,n,t,dem;
int main()
{
cin>>n;
for (i=1; i<=n; i++) cin>>a[i];
t=0;
dem=0;
for (i=1; i<=n; i++)
if ((a[i]>0) and (i%2==1))
{
t+=a[i];
dem++;
}
cout<<fixed<<setprecision(2)<<(t*1.0)/(dem*1.0);
return 0;
}
viết chương trình nhập vào các số nguyên dương N,dãy a1,a2 ,...an đưa ra số lượng số lẻ và số chẵn có trong dãy
n = int(input("Nhập số phần tử của dãy: "))
a = [ ]
# đếm số chẵn
even_count = 0
# đếm số lẻ
odd_count = 0
for i in range(n):
a.append(int(input("Nhập phần tử thứ {0}: ".format(i+1))))
for i in a:
if i % 2 == 0:
even_count += 1
else:
odd_count += 1
print("Số lượng số chẵn trong dãy: ", even_count)
print("Số lượng số lẻ trong dãy: ", odd_count)
n = int(input("Nhập số phần tử của dãy: "))
a = [ ]
# đếm số chẵn
even_count = 0
# đếm số lẻ
odd_count = 0
for i in range(n):
a.append(int(input("Nhập phần tử thứ {0}: ".format(i+1))))
for i in a:
if i % 2 == 0:
even_count += 1
else:
odd_count += 1
print("Số lượng số chẵn trong dãy: ", even_count)
print("Số lượng số lẻ trong dãy: ", odd_count)
Đúng KO Ạ MK KO CHẮCCho tệp 'dayso.in' chứa các dãy số nguyên A1, A2....,An mỗi dãy sô nằm trên 1 dòng. Viết chương trình tính tổng theo dòng trong tệp 'dayso.in' sau đó ghi các số tổng này lên tệp 'tong.out', mỗi số ghi trên một dòng