K
Khách

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.

#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)

{

t+=a[i];

dem++;

}

cout<<t<<endl;

cout<<dem;

return 0;

}

#include <iostream>
using namespace std;
int main()
{
    int a[100][100],i,j,m,n;
    cout<<"Nhap so dong cua mang:"; cin>>n;
    cout<<"Nhap so cot cua mang:"; cin>>m;
    for (i=1; i<=n; i++)
        for (j=1; j<=m; j++)
    {
        cout<<"A["<<i<<","<<j<<"]="; cin>>a[i][j];
    }
    for (i=1; i<=n; i++)
    {
        for (j=1; j<=m; j++)
            cout<<a[i][j]<<" ";
        cout<<endl;
    }
    return 0;
}

 

24 tháng 4 2023

giúp mình với

24 tháng 4 2023

Var a:array[1..1000] of integer;

i,n,d:integer;

sd,s:longint;

Begin

Write('n = ');readln(n);

For i:=1 to n do

Begin

Write('Nhap phan tu thu ',i,' = ');readln(a[i]);

s:=s+a[i];

End;

For i:=1 to n do

If a[i] > 0 then

Begin

d:=d+1;

sd:=sd+a[i];

End;

Writeln('Tong cac so vua nhap la ',s);

Write('Co ',d,' so nguyen duong va tong cua chung la ',sd);

Readln

End.

Câu 1: 

uses crt;

var a:array[1..100]of real;

i,n:integer;

t:real;

begin

clrscr;

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];

writeln(t:4:2);

readln;

end.

Câu 2: 

uses crt;

var a:array[1..100]of integer;

i,n:integer;

t:real;

begin

clrscr;

write('Nhap n='); readln(n);

for i:=1 to n do 

  begin

write('A[',i,']='); readln(a[i]);

end;

t:=1;

for i:=1 to n do 

  t:=t*a[i];

writeln(t:4:2);

readln;

end.

1.     Viết chương trình nhập vào một mảng các số nguyên. Tìm tổng các số. 2.     Viết chương trình nhập vào một mảng các số nguyên. Tính và xuất tổng các số chẵn có trong mảng.3.     Viết chương trình nhập vào một mảng các số nguyên. Tính và xuất tổng các số lẻ có trong mảng.4.     Viết chương trình nhập vào một dãy các số nguyên. Hãy đưa ra màn hình có bao nhiêu số chẳn và bao nhiêu số lẻ trong dãy.5.     Viết...
Đọc tiếp

1.     Viết chương trình nhập vào một mảng các số nguyên. Tìm tổng các số.

2.     Viết chương trình nhập vào một mảng các số nguyên. Tính và xuất tổng các số chẵn có trong mảng.

3.     Viết chương trình nhập vào một mảng các số nguyên. Tính và xuất tổng các số lẻ có trong mảng.

4.     Viết chương trình nhập vào một dãy các số nguyên. Hãy đưa ra màn hình có bao nhiêu số chẳn và bao nhiêu số lẻ trong dãy.

5.     Viết chương trình nhập vào một dãy gồm N số nguyên. Cho biết có bao nhiêu số có giá trị chia hết cho 5 và không chia hết cho 3 trong dãy đó. Xuất số lượng đếm được và vị trí các số đó

6.     Viết chương trình nhập vào một mảng các số nguyên. Tìm  giá trị lớn nhất và vị trí của nó.

7.     Viết chương trình nhập vào một mảng các số thực. Tìm  giá trị nhỏ nhất và vị trí của nó.

8.     Viết chương trình nhập vào một mảng các số nguyên. Sau đó nhập vào một số và tìm xem số ấy có trong mảng hay không, nếu có xuất vị trí.

9.     Nhập một dãy số gồm N số nguyên. Tìm tổng bình phương các số(a21+ a22+ a23+… a2N)

10. Viết chương trình nhập vào một dãy số và sắp xếp theo thứ tự giảm dần.

11. Viết chương trình chèn thêm một số nguyên vào vị trí thứ k(k=1, k=5, k=9 hoặc k=N) của mảng số nguyên gồm N phần tử.

12. Viết chương trình xóa một phần tử thứ k (với k là số nguyên và 1<=k<=N. VD k=1, k=5, k=9 hoặc k=N) của mảng số nguyên gồm N phần tử.

1

Câu 1: 

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;

t:=0;

for i:=1 to n do 

  t:=t+a[i];

writeln('Tong cac so trong mang la: ',t);

readln;

end.

Câu 2: 

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;

t:=0;

for i:=1 to n do 

  if a[i] mod 2=0 then t:=t+a[i];

writeln('Tong cac so chan la: ',t);

readln;

end.

#include <bits/stdc++.h>

using namespace std;

long long a[1000],i,n,k,dem;

int main()

{

cin>>n;

for (i=1; i<=n; i++) cin>>a[i];

cin>>k;

dem=0;

for (i=1; i<=n; i++) 

if (a[i]==k) dem++;

cout<<dem;

return 0;

}

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;

t:=0;

for i:=1 to n do 

 if a[i]>0 then t:=t+a[i];

writeln(t);

readln;

end.

#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];

for (i=1; i<=n; i++) cout<<a[i]<<" ";

cout<<endl;

dem=0;

t=0;

for (i=1; i<=n; i++)

if (a[i]>0)

{

dem++;

t=t+sqrt(a[i]);

}

cout<<t;

return 0;

}

1.viết chương trình nhập vào 1 dãy số nguyên gồm n phần tử. Tính tổng là các số chẵn và in các phần tử đó lên màn hình. 2.Viết chương trình nhập vào mã số nguyên n phần tử. Tính tích các phần tử trong mảng và in các phần tử của mảng là số trong mảng lên màn hình. 3. Viết chương trình nhập vào mã số nguyên n phân tử. Đếm xem phần mảng có bao nhiêu phần tử lớn hơn 0. Tính và thông báo lên màn hình tổng bình phương...
Đọc tiếp

1.viết chương trình nhập vào 1 dãy số nguyên gồm n phần tử. Tính tổng là các số chẵn và in các phần tử đó lên màn hình. 2.Viết chương trình nhập vào mã số nguyên n phần tử. Tính tích các phần tử trong mảng và in các phần tử của mảng là số trong mảng lên màn hình. 3. Viết chương trình nhập vào mã số nguyên n phân tử. Đếm xem phần mảng có bao nhiêu phần tử lớn hơn 0. Tính và thông báo lên màn hình tổng bình phương các số lẻ.Tìm và thông báo lên màn hình giá trị lớn nhất có trong mảng. 4. Viết chương trình nhập vào 2 số nguyên A,B a) Tính rồi thông báo lên màn hình các ước số của A,B b) Tìm rồi thông báo lên màn hình các ước số chung của A và B. 5.Viết chương trình nhập vào 1 số nguyên ban đầu, nhập vào công sai. Thông báo lên màn hình kết quả của cấp số cộng thứ N n số với n số nguyên được nhập vào màn hình. 6.Viết chương trình in ra màn hình các số nguyên tố đầu tiên trong khoảng N với N là số nguyên nhập vào từ bàn phím. 7. Viết chương trình in lên màn hình một số hoàn thiện nhở hơn N với N là số nguyên nhập vào từ bàn phím. 8. Viết chương trình nhập vào số lượng học sinh và số môn học của mỗi học sinh. Tính và biểu thị lên điểm trung bình của từng học sinh Giúp tớ với ạ Giúp được câu nào thì giúp ạ Nhất là mấy câu cuối cuối ý ạ Rất mong sự giúp đỡ từ mọi người!!!

5
27 tháng 4 2021

 tách ra từng câu hỏi đi bro

Câu 1: 

uses crt;

var a:array[1..200]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;

t:=0;

for i:=1 to n do 

 if a[i] mod 2=0 then t:=t+a[i];

writeln(t);

readln;

end.