Hãy viết ct nhập dãy A sau đó liệt kê cặp đôi phân tử ai và aj thoả mãn (ai+aj) read2=K dc nhập vào và i khác j
Cho dãy số n số nguyên dương a1,a2,...,an. Hãy tìm hai số ai,aj sao cho i khác j và ai+aj đạt max. Xây dựng thuật toán bằng sơ đồ khối hoặc liệt kê cho bài toán trên.
Cho dãy gồm N số nguyên dương a1,a2,..., an và giá trị K. Hãy đếm các cặp phần tử ai + aj = K ( với i < j )
pờ lí hép mii <33
uses crt;
var a:array[1..100]of integer;
i,n,j,dem,k:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
write('Nhap k='); readln(k);
dem:=0;
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i]+a[j]=k then inc(dem);
writeln(dem);
readln;
end.
Viết CT nhập vào một dãy số nguyên gồm n phần tử .Tính tổng các phân tử chia hết cho k(k khác 0) được nhập từ bàn phím. Mk cần gấp ạ
#include <bits/stdc++.h>
using namespace std;
int main()
{
int n,k,t=0,x;
cin>>n>>k;
for (int i=1; i<=n; i++)
{
cin>>x;
if (x%k==0) t=t+x;
}
cout<<t;
return 0;
}
#include <bits/stdc++.h>
using namespace std;
int main()
{
int n,k,t=0,x;
cin>>n>>k;
for (int i=1; i<=n; i++)
{
cin>>x;
if (x%k==0) t=t+x;
}
cout<<t;
return 0;
}
Cho hình bình hành ABCD , kẻ đường thẳng đi qua A cắt BD ở I, cắt tia BC ở J và cắt tia DC ở K .
a) CMR : AI.ID = IB.IK
b) CMR: IA^2 = IJ.IK
c) CMR: AI/AJ = ID/IB và AI/AK = IB/BD
d) CMR : 1/AJ + 1/AK = 1/AI
2. Viết CT nhập vào dãy số nguyên có n phần tử. In ra vị trí các phần tử âm.
3. Viết CT nhập vào dãy số tự nhiên có n phần tử. In ra giá trị các phần tử ở vị trí lẻ.
4. Tìm phần tử lớn nhất và nhỏ nhất trong 1 dãy phần tử.
2:
uses crt;
var a:array[1..100]of integer;
n,i: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
if a[i]<0 then write(i:4);
readln;
end.
sao bài này giống bài tập cô mình giao thế nhỉ:>
4
var max,min,n,i: integer;
a:array [1..100] of integer;
begin
write('nhap so phan tu: ');readln(n);
for i:=1 to n do
begin
write('a[',i,']=');readln(a[i]);
end;
max:=a[1];min:=a[1];
for i:=1 to n do
if max<a[i] then max:=a[i];
if min>a[i] then min:=a[i];
write('so lon nhat trong day la: ',max);writeln;
write('so nho nhat trong day la: ',min);writeln;
readln;
end.
cho hbh ABCD kẻ đg thg đi qua A cắt BD ở I,cắt BC ở J và DC ở K
a)CM: AI.ID=IB.IK
b)CM: IA2=IJ.IK
c)CM: AI/AJ = ID/IB, AI/AK = IB/BD
1. Viết CT nhập vào 1 dãy số nguyên có N phần tử (N=150). In ra màn hình và ghi ra tệp D:\SO_CHAN.TXT các phần tử là số chẵn.
2.Viết CT nhập vào họ và tên của một người bằng chữ in thường. In ra màn hình và ghi ra tệp D:\HO_TEN.TXT họ tên người đó bằng chữ in hoa.
3. Cho tệp D:\SO_HANG.TXT chứa các cặp số nguyên( mỗi số cách nhau 1 khoảng trắng, mỗi cặp nằm trên 1 dòng. Viết CT tính tổng các cặp số đó, kết quả in ra màn hình và ghi ra tệp D:\KET_QUA.TXT.
4. Cho tệp D:\HO_TEN.TXT chứa họ tên của một số người bằng chữ in thường. Viết CT in ra màn hình và ghi ra tệp D:\HT_HOA.TXT họ tên những người đó bằng chữ in hoa. Giúp mik vs ạ tks nhiều
B1:Nhập vào bàn phím 1 xâu thay thế tất cả các cụm kí tự ('bông' thay bằng 'hoa').
B2: Nhập vào mảng a gồm n phần tử (n<100) số nguyên có giá trị tuyệt đối ko lớn hơn 100 .Hãy cho pk các phần tử của mảng này có lập thành 1 cấp số cộng được ko.
B3:Viết ct nhập vào một xâu và in ra màn hình số kí tự khác nhau trong xâu đó
Ai giải giùm e đúng e tick cho