Em cần gấp lắm, mai em thi rồi.Viết chương trình nhập vào một mảng gồm n số nguyên rồi thực hiện việc sau: 1.Tính tổng các phần tử của mảng. 2.Tính tổng các phần tử giá trị ( ) của mảng. 3....

1

NL

Nguyễn Lê Phước Thịnh

15 tháng 5 2021

uses crt;

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

i,n,t,t1,t2: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];

t1:=0;

t2:=0;

for i:=1 to n do

begin

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

if a[i]<0 then t2:=t2+a[i];

end;

writeln('Tong cac phan tu la: ',t);

writeln('Tong cac so duong la: ',t1);

writeln('Tong cac so am la: ',t2);

writeln('Trung binh cong cua day la: ',t/n:4:2);

readln;

end.

TB

Tùng Bùi

6 tháng 4 2023

Viet chuong trình khai báo một mảng các số nguyên không âm gồm 7 phân tử và thực hiện các công việc sau 1 Nhập giá tự cho các phần tử của mảng 2 in các phần tử của mảng lên màn hình 3 Tính tổng các phần tử của mảng 4 Tính trung bình các giá trị của mảng 5 Tìm giá trị Min của mảng 6 sắp xếp các phần tử của mảng theo chiều giảm dần.

1

PS

Phía sau một cô gái

6 tháng 4 2023

program PSMCG;

uses crt;

const

size = 7;

var

arr: array[1..size] of integer;

i, sum, min, temp: integer;

avg: real;

begin

clrscr;

writeln('Nhap vao day so nguyen khong am gom 7 phan tu: ');

for i := 1 to size do

begin

readln(arr[i]);

end;

writeln('Cac phan tu trong day la: ');

for i := 1 to size do

begin

write(arr[i], ' ');

end;

writeln();

sum := 0;

for i := 1 to size do

begin

sum := sum + arr[i];

end;

writeln('Tong cac phan tu la: ', sum);

avg := sum / size;

writeln('Trung binh cac phan tu la: ', avg:0:2);

min := arr[1];

for i := 2 to size do

begin

if(arr[i] < min) then

begin

min := arr[i];

end;

writeln('Gia tri nho nhat la: ', min);

for i := 1 to size - 1 do

begin

for j := i + 1 to size do

begin

if(arr[i] < arr[j]) then

begin

temp := arr[i];

arr[i] := arr[j];

arr[j] := temp;

end;

writeln('Cac phan tu da sap xep theo thu tu giam dan:');

for i := 1 to size do

begin

write(arr[i], ' ');

end;

readln;

end.

TB

Tùng Bùi

7 tháng 4 2023

Cảm ơn bạn nhìu

BT

Bui Trong Diep

11 tháng 5 2022

Viết chương trình nhập vào mảng số nguyên rồi thực hiện các công việc sau đây: A) Đếm số các phần tử có giá trị dương(âm) và tính tổng của chúng B) Tìm số dương(âm) đầu tiên và chỉ số của nó trong mảng Mong mọi người giúp ạ mai em ktra học kỳ rồi ạ

1

NL

Nguyễn Lê Phước Thịnh

11 tháng 5 2022

uses crt;

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

i,n,dem1,dem2,t1,t2,sa,sd,vt1,vt2:integer;

begin

clrscr;

readln(n);

for i:=1 to n do readln(a[i]);

dem1:=0;

t1:=0;

dem2:=0;

t2:=0;

for i:=1 to n do

begin

if a[i]>0 then begin inc(dem1); t1:=t1+a[i]; end;

if a[i]<0 then begin inc(dem2); t2:=t2+a[i]; end;

end;

writeln(dem1);

writeln(dem2);

writeln(t1);

writeln(t2);

for i:=1 to n do

if a[i]>0 then

begin

sd:=a[i];

vt1:=i;

break;

end;

if (dem1=0) then writeln('Khong co so duong trong day')

else writeln('So duong dau tien la: ',sd,' vi tri la: ',vt1);

for i:=1 to n do

if a[i]<0 then

begin

sa:=a[i];

vt2:=i;

break;

end;

if (dem2=0) then writeln('Khong co so am trong day')

else writeln('So am dau tien la: ',sa,' vi tri la: ',vt2);

readln;

end.

HN

Hiểu Nguyễn Đức

19 tháng 5 2022

viết chương trình nhập vào 1 mảng 1 chiều gồm n phần tử ( với n được nhập vào từ bàn phím ) hãy thực hiện các công việc sau :

-nhập/xuất mảng

-đếm các số hoàn hảo có trong mảng

-tính tổng các phần tử chẵn trong mảng .

1

NL

Nguyễn Lê Phước Thịnh

19 tháng 5 2022

#include <bits/stdc++.h>

using namespace std;

long long a[1000],n,i,dem,t,j,t1;

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;

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

{

t=0;

for (j=1; j<=a[i]-1; j++)

if (a[i]%j==0) t+=j;

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

}

cout<<dem<<endl;

t1=0;

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

if (a[i]%2==0) t1+=a[i];

cout<<t1;

return 0;

}

HN

Hiểu Nguyễn Đức

19 tháng 5 2022

viết chương trình nhập vào 1 mảng 1 chiều gồm n phần tử ( với n được nhập vào từ bàn phím ) hãy thực hiện các công việc sau :

-nhập/xuất mảng

-đếm các số hoàn hảo có trong mảng

-tính tổng các phần tử chẵn trong mảng .

#Tin học lớp 12

2

NL

Nguyễn Lê Phước Thịnh

19 tháng 5 2022

#include <bits/stdc++.h>

using namespace std;

long long a[1000],n,i,dem,t,j,t1;

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;

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

{

t=0;

for (j=1; j<=a[i]-1; j++)

if (a[i]%j==0) t+=j;

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

}

cout<<dem<<endl;

t1=0;

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

if (a[i]%2==0) t1+=a[i];

cout<<t1;

return 0;

}

KS

Kudo Shinichi

25 tháng 5 2022

#include <bits/stdc++.h>

using namespace std;

long long a[1000],n,i,dem,t,j,t1;

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;

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

{

t=0;

for (j=1; j<=a[i]-1; j++)

if (a[i]%j==0) t+=j;

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

}

cout<<dem<<endl;

t1=0;

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

if (a[i]%2==0) t1+=a[i];

cout<<t1;

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...

MD

Minh Duy

27 tháng 4 2021

Đọc tiếp

5

BA

Bùi Anh Tuấn

27 tháng 4 2021

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

NL

Nguyễn Lê Phước Thịnh

27 tháng 4 2021

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.

V

Vochehoang

26 tháng 4 2021

C1 Viết Chương trình nhập vào một mảng số thực gồm n phần tử tính tổng các phần tử chẵn ( n được nhập tử bàn phím )

C2 Viết chương trình nhập vào một mảng số nguyên gồm n phần tử tính tích các phần tử có trong dãy số đó

2

NL

Nguyễn Lê Phước Thịnh

26 tháng 4 2021

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.

NL

Nguyễn Lê Phước Thịnh

26 tháng 4 2021

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.

BT

Bé Thúy

13 tháng 4 2021

Em hãy viết chương trình hoàn chỉnh nhập vào mảng 1 chiều gồm 6 phần tử . Đếm và tính tổng các phần tử dương của mảng vừa nhập , biết rằng các phần tử trong mảng là các số nguyên

1

NL

Nguyễn Lê Phước Thịnh

13 tháng 4 2021

uses crt;

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

i,dem,t:integer;

begin

clrscr;

for i:=1 to 6 do

begin

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

end;

dem:=0;

t:=0;

for i:=1 to 6 do

if a[i]>0 then

begin

inc(dem);

t:=t+a[i];

end;

writeln('So phan tu duong la: ',dem);

writeln('Tong cac phan tu duong la: ',t);

readln;

end.

BT1: Viết chương trình nhập vào một mảng gồm 10 phần tử số nguyên. In ra màn hình mảng vừa nhập và tính tổng các phần tử trong mảng. BT2: Viết chương trình nhập vào một mảng gồm 10 phần tử số thực. In ra màn hình các phần tử có chỉ số chẵn trong mảng. BT3: Viết chương trình nhập vào một mảng gồm n phần tử số nguyên. In ra màn hình các phần tử có giá trị chẵn trong mảng. BT4: Viết...

B

Benny

7 tháng 3 2023

Đọc tiếp

1

NL

Nguyễn Lê Phước Thịnh

9 tháng 3 2023

6:

#include <bits/stdc++.h>

using namespace std;

int main()

{

int n,A[100],i,dem=0;

cin>>n;

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

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

if (A[i]%2!=0) dem++;

cout<<dem;

return 0;

}

5:

#include <bits/stdc++.h>

using namespace std;

int main()

{

long long n,nn=1e6,A[1000];

cin>>n;

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

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

nn=min(nn,A[i]);

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

if (nn==A[i]) cout<<i<<" ";

return 0;

}

MP

Mai Phương Lê

4 tháng 5 2021

1 Nhập dãy số nguyên gồm n phần tử viết chương trình in ra những số có giá trị lẻ 2 nhập vào dãy số nguyên gồm n phần tử viết chương trình tính tổng các số chẵn có trong mảng 3 nhập vào dãy số nguyên gồm n phần tử viết chương trình tính tổng các số lẻ có trong mảng

3

NL

Nguyễn Lê Phước Thịnh

5 tháng 5 2021

Bài 1:

uses crt;

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

i,n: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] mod 2<>0 then write(a[i]:4);

readln;

end.

NL

Nguyễn Lê Phước Thịnh

5 tháng 5 2021

Bài 2:

uses crt;

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

i,n: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] mod 2=0 then write(a[i]:4);

readln;

end.