Viết chương trình C nhập vào mảng số nguyên với n phần tử.- In mảng theo thứ tự giảm dần.- In ra phép tính tích các phần tử chia hết cho 3 theo dạng: phần tử 1 x phần tử 2 x... x phần tử cuối = tích....

#Tin học lớp 12

1

NL

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

28 tháng 12 2021

#include <bits/stdc++.h>

using namespace std;

long long a[1000],i,n;

int main()

{

cin>>n;

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

sort(a+1,a+n+1);

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

return 0;

}

Viết chương trình nhập vào mảng A gồm N ( n<=150 )số nguyên. Thực hiện yêu cầu sau. ( 5 điểm )a.Tính trung bình cộng các phần tử chia hết cho 4 và 6 trong mảng. ( 2 điểm )b. In ra các phần tử chia hết cho X trong mảng và tính tích các phần tử chia hết cho X, với X được nhập từ bàn phím ( 3 điểm...

DV

Đại Văn

14 tháng 4 2023

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

0

MD

Minh Duy

27 tháng 4 2021

#Tin học lớp 8

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.

F

feng

21 tháng 5 2022

Viết chương trình nhập vào mảng A gồm n nhỏ 1 = 100 các số nguyên tử sau a) tính tích các số chia hết cho 3 b)in ra màn hình giá trị nhỏ nhất chia hết cho 3 và chỉ số của nó c) in ra màn hình các phần tử của mảng đó theo thứ tự ngược lại

1

NL

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

21 tháng 5 2022

uses crt;

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

n,i,t,nn,kt:integer;

begin

clrscr;

readln(n);

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

t:=1;

for i:=1 to n do

if a[i] mod 3=0 then t:=t*a[i];

writeln(t);

kt:=0;

nn:=32567;

for i:=1 to n do

if a[i] mod 3=0 then

begin

if nn>a[i] then nn:=a[i];

kt:=1;

end;

if kt=0 then writeln('Khong co so chia het cho 3')

else writeln('So nho nhat chia het cho 3 la: ',nn);

for i:=1 to n do

if nn=a[i] then write(i:4);

writeln;

for i:=n downto 1 do

write(a[i]:4);

readln;

end.

F

feng

21 tháng 5 2022

chạy rồi thì nhập gì để cho ra kết quả như bên phải ạ ? undefined

NV

Nguyễn Văn Tú

26 tháng 11 2021

-Viết chương trình:

a)Nhập vào mảng 1 chiều N phần tử nguyên(N<=100)

b)In mảng vừa nhập.

c)Tính tổng các phần tử lẻ/chẵn trong mảng

d)Đếm xem trong mảng có bao nhiều phần tử chia hết cho 3.

e)Tính tổng các phần tử trong mảng.

f)Sắp xếp các mảng theo thứ tự tăng dần.

0

NN

Nguyễn Ngọc Quỳnh Như

3 tháng 4 2019

1.Viết chương trình tìm giá trị lớn nhất của một mảng chứa các số Z gồm N phần tử.

2.Viết chương trình nhập vào một mảng gồm N số nguyên. Sắp xếp lại mảng theo thứ tự tăng dần và in ra kết quả màn hình.

3.Viết chương trình nhập vào một mảng A gồm N số nguyên và nhập thêm vào một số nguyên X. Hãy kiểm tra xem phần tử X có trong mảng A hay không ?

#Toán lớp 8

2

NC

Nguyễn Công Tỉnh

3 tháng 4 2019

1.

Program Tim_Max;
Var A:Array[1..255] of Integer;
i, n, Max: Integer;
Begin
Write('Nhap n: '); Readln(n);
For i := 1 to n do
Begin
Write('Nhap phan tu A[',i,'] = '); Readln(A[i]);
End;
Max := A[1];
For i := 2 to n do if A[i]>Max then Max := A[i];
Write('Phan tu lon nhat la :',Max);
Readln
End.

2.

Uses Crt;
Type Mang = ARRAY[1..50] Of Integer;
Var A:Mang;
N,i,j,Tam:Integer;
Begin
{Nhập mảng}
Write('Nhap N='); Readln(N);
For i:=1 To N Do
Begin
Write('A[',i,']='); Readln(A[i]);
End;
{Sắp xếp}
For i:=1 To N-1 Do
For j:=i+1 To N Do
If A[i]>A[j] Then
Begin
Tam:=A[i]; A[i]:=A[j]; A[j]:=Tam;
End;
{In kết quả ra màn hình}
Writeln('Ket qua sau khi sap xep:');
For i:=1 To N Do Write(A[i]:5);
Readln;
End.

3.

Uses Crt;
Type Mang = ARRAY[1..50] Of Integer;
Var A:Mang;
N,i,x:Integer;

Function TimKiem(x, N: Integer; A:Mang):Integer;
Var i:Integer;
Begin
I:=1;
While (I <= N) and (X<>A[I]) do I:=I+1; {{{{tại sao lại phải làm như bước này, tại sao lại lấy i đi so sánh với N}}}}
If I <= N Then Timkiem:=I Else Timkiem:=0;
End;

Begin
{Nhập mảng}
Write(‘Nhap N=’); Readln(N);
For i:=1 To N Do
Begin
Write(‘A[‘,i,’]=’); Readln(A[i]);
End;
Write(‘Nhap X=’); Readln(x);
{Kết quả tìm kiếm}
If TimKiem(X,N,A)<>0 Then
Writeln(‘Vi tri cua X trong mang la:’, TimKiem(X,N,A))
Else Writeln(‘X khong co trong mang.’);
Readln;
End.

NC

Nguyễn Công Tỉnh

3 tháng 4 2019

câu 1 tham khảo cái này nhé

Uses Crt;

Type Mang = ARRAY[1..50] Of Integer;

Var A:Mang;

N,i,Max:Integer;

Begin

Write('Nhap N='); Readln(N);

For i:=1 To N Do

Begin

Write('A[',i,']='); Readln(A[i]);

End;

Max:=A[1];

For i:=2 To N Do

If Max<A[i] Then Max:=A[i];

Writeln('Phan tu lon nhat cua mang:', Max);

Readln;

End.

DN

Danh Nguyễn

8 tháng 3 2022

Bài 1: Viết chương trình nhập mảng số nguyên A có n phần tử. Tính tổng các phần tử nguyên âm lẻ và in tổng đó ra màn hình. Bài 2: Viết chương trình nhập mảng số nguyên A có n phần tử. Tính tích các phần tử nguyên dương chẵn và in tích đó ra màn hình.

1

NL

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

8 tháng 3 2022

Bài 1:

#include <bits/stdc++.h>

using namespace std;

long long x,n,i,t;

int main()

{

cin>>n;

t=0;

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

{

cin>>x;

if ((x<0) and (x%2!=0)) t=t+x;

}

cout<<t;

return 0;

}

TN

Thảo Nguyễn

24 tháng 12 2021

Viết chương trình:

- Nhập mảng gồm n phần tử, với n được nhập vào từ bàn phím

- In mảng lên màn hình

- In ra màn hình số phần tử chia hết cho 2

- Tính và in ra màn hình tổng các phần tử của mảng

1

NL

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

24 tháng 12 2021

#include <bits/stdc++.h>

using namespace std;

long long a[10000],n,i,t;

int main()

{

cin>>n;

t=0;

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

{

cin>>a[i];

t=t+a[i];

}

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

cout<<endl;

dem=0;

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

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

cout<<dem<<endl;

cout<<t;

return 0;

}

bài 1:Viết chương trình nhập vào một mảng số nguyên gồm n phần tử(n<100) nhập từ bàn phím thực hiện các công việc sau: a)In ra màn hình các phần tử của mảng vừa nhập.b) Sắp xếp dãy số nguyên theo thứ tự tăng dần.c) Nhập số nguyên x bất kì.Tính số chắn lớn nhất không được vượt quá...

BP

bui pham phuong Uyen

27 tháng 1 2021

1

NL

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

27 tháng 1 2021

Bài 1:

uses crt;

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

i,n,kt,max,x,j,tam:integer;

begin

clrscr;

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

for i:=1 to n do

begin

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

end;

writeln('Mang ban vua nhap la: ');

for i:=1 to n do

write(a[i]:4);

writeln;

for i:=1 to n-1 do

for j:=i+1 to n do

if a[i]>a[j] then

begin

tam:=a[i];

a[i]:=a[j];

a[j]:=tam;

end;

writeln('Day tang dan la: ');

for i:=1 to n do

write(a[i]:4);

writeln;

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

max:=0;

kt:=0;

for i:=1 to n do

if (a[i] mod 2=0) and (a[i]<=x) then

begin

if max<a[i] then max:=a[i];

kt:=1;

end;

if kt=0 then writeln('Trong day khong co so le')

else writeln('So chan lon nhat khong vuot qua ',x,' la: ',max);

readln;

end.