cho dãy A gồm n phần tử :a1,a2,...,an a)Xuất dãy số ra màn hình b)Tính tổng giá trị các phần tử trong dãy c)Tìm phần tử lớn và nhỏ nhất trong dãy Tìm chỉ số nhỏ nhất và lớn nhất trong dãy e)Cho số nguyên K cho biết có bao nhiêu phần tử bằng K
2 câu trả lời
$PASCAL$
program ct;
uses crt;
var A:array[1..1000] of integer;
i,n,S,max,min,K,d:integer;
begin clrscr;
write('Nhap so phan tu: '); readln(n);
for i:=1 to n do
begin
write('Nhap phan tu thu ',i,': '); readln(A[i]);
end;
write('Xuat day so: ');
for i:=1 to n do
write(A[i]:3);
S:=0;
for i:=1 to n do
S:=S+A[i];
writeln('Tong cac phan tu trong day la: ',S);
max:=A[1]; min:=A[1];
for i:=1 to n do
begin
if A[i]>max then max:=A[i];
if A[i]<min then min :=A[i];
end;
writeln('Phan tu lon nhat la: ',max);
writeln('Phan tu nho nhat la: ',min);
writeln('Chi so nho nhat la: ',A[1]);
writeln('Chi so lon nhat la: ',A[n]);
writeln('Nhap so K: '); readln(K);
d:=0;
for i:=1 to n do
if A[i]=K then d:=d+1;
write('Co ',d,' phan tu bang K');
readln;
end.
Học tốt!
#include<bits/stdc++.h>
using namespace std;
int main()
{
\*
Ban quyen: iusenoname
Van de reup: Lien he iusenoname
Ngon ngu: c++
*\
int n,sum=0,be,lon,k,ptbk=0;
cin>>n; // nhập số phần từ của dãy
cin>>k; // nhap k
int A[n];
for(int i=0;i<n;i++)
{
cin>>A[i]; //Nhập dãy số
}
be=A[0];
lon=A[0];
for(int i=0;i<n;i++)
{
cout<<A[i]<<" "; //Xuất dãy số
sum+=A[i]; // tính tổng dãy
if(be>A[i])
{
be=A[i];
}
if(lon<A[i])
{
lon=A[i];
}
if(A[i]==K)
{
ptbk+=1;
}
}
cout<<sum; // in tong day
cout<<be; // in so be
cout<<lon; // in so lon
cout<<ptbk; // in so phan tu bang k;
}
Sai thì bình luận nha để mình sửa, tại bạn không nói ngôn ngữ gì nên mình làm c++ nha.
