1/viết chương trình nhập dãy số gồm 10 số nguyên dương.In ra màn hình số bé nhất (Min)2/viết chương trình nhập dãy số gồm n số nguyên.a. Tính tổng các phần tử của dãy.b. In ra màn hình các phần tử là...

1

NL

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

10 tháng 5 2022

1:

#include <bits/stdc++.h>

using namespace std;

long long n=10, a[10],i,nn;

int main()

{

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

nn=a[1];

for (i=2; i<=n; i++) nn=min(nn,a[i]);

cout<<nn;

return 0;

}

Cho dãy N số nguyên (với n nhập vào từ bàn phím). Viết chương trình thực hiện các yêu cầu sau.a. Nhập vào dãy số n và giá trị từng phần tử của dãy.b. Xuất giá trị của dãy vừa nhập.c. Tính tổng các phần tử của dãyd. In ra màn hình giá trị Max, Min của dãy.e. Tính tổng các phần tử dương của dãyf. Tính tổng các phần tử âm của dãy.g. Tính tổng các phần tử chẵn của dãy.h. Tính tổng các phần tử lẻ của dãy.i....

TL

Trúc Linh

9 tháng 4 2023

2

PS

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

9 tháng 4 2023

program tinh_toan_day_so;

const

MAX = 1000;

var

a: array[1..MAX] of integer;

n, i, tong, tong_duong, tong_am, tong_chan, tong_le, max, min, temp: integer;

begin

// Nhập dãy số và giá trị từng phần tử của dãy

write('Nhập số phần tử của dãy: ');

readln(n);

for i := 1 to n do

begin

write('Nhập phần tử thứ ', i, ': ');

readln(a[i]);

end;

// Xuất giá trị của dãy vừa nhập

writeln('Dãy số vừa nhập là: ');

for i := 1 to n do

begin

write(a[i], ' ');

end;

writeln();

// Tính tổng các phần tử của dãy

tong := 0;

for i := 1 to n do

begin

tong := tong + a[i];

end;

writeln('Tổng các phần tử của dãy là: ', tong);

// Tìm giá trị Max, Min của dãy

max := a[1];

min := a[1];

for i := 2 to n do

begin

if a[i] > max then

begin

max := a[i];

end;

if a[i] < min then

begin

min := a[i];

end;

writeln('Phần tử lớn nhất của dãy là: ', max);

writeln('Phần tử nhỏ nhất của dãy là: ', min);

// Tính tổng các phần tử dương, âm, chẵn, lẻ của dãy

tong_duong := 0;

tong_am := 0;

tong_chan := 0;

tong_le := 0;

for i := 1 to n do

begin

if a[i] > 0 then

begin

tong_duong := tong_duong + a[i];

end

else

begin

tong_am := tong_am + a[i];

end;

if a[i] mod 2 = 0 then

begin

tong_chan := tong_chan + a[i];

end

else

begin

tong_le := tong_le + a[i];

end;

writeln('Tổng các phần tử dương của dãy là: ', tong_duong);

writeln('Tổng các phần tử âm của dãy là: ', tong_am);

writeln('Tổng các phần tử chẵn của dãy là: ', tong_chan);

writeln('Tổng các phần tử lẻ của dãy là: ', tong_le);

// Sắp xếp các phần tử của dãy theo thứ tự giảm dần

for i := 1 to n-1 do

begin

for j := i+1 to n do

begin

if a[i] < a[j] then

begin

temp := a[i];

a[i] := a[j];

a[j] := temp;

end;

writeln('Dãy số sau khi được sắp xếp giảm dần là: ');

for i := 1 to n do

begin

write(a[i], ' ');

end;

writeln();

// Sắp xếp các phần tử của dãy theo thứ tự tăng dần

for i := 1 to n-1 do

begin

for j := i+1 to n do

begin

if a[i] > a[j] then

begin

temp := a[i];

a[i] := a[j];

a[j] := temp;

end;

writeln('Dãy số sau khi được sắp xếp tăng dần là: ');

for i := 1 to n do

begin

write(a[i], ' ');

end;

writeln();

readln;

end.

Đúng(2)

TD

Trần Đức Hải Phong

25 tháng 12 2023

rất dài nha bạn:

program XuLyDaySo;

var
N, i, soNguyen: integer;
daySo: array of integer;

procedure NhapDaySo(var daySo: array of integer; N: integer);
var
i: integer;
begin
SetLength(daySo, N);
for i := 0 to N - 1 do
begin
write('Nhap phan tu thu ', i + 1, ': ');
readln(daySo[i]);
end;
end;

procedure XuatDaySo(daySo: array of integer);
var
i: integer;
begin
writeln('Danh sach cac phan tu trong day:');
for i := 0 to Length(daySo) - 1 do
write(daySo[i], ' ');
writeln;
end;

function TinhTongDaySo(daySo: array of integer): integer;
var
i, tong: integer;
begin
tong := 0;
for i := 0 to Length(daySo) - 1 do
tong := tong + daySo[i];
TinhTongDaySo := tong;
end;

procedure TimMaxMin(daySo: array of integer; var Max, Min: integer);
var
i: integer;
begin
Max := daySo[0];
Min := daySo[0];
for i := 1 to Length(daySo) - 1 do
begin
if daySo[i] > Max then
Max := daySo[i];
if daySo[i] < Min then
Min := daySo[i];
end;
end;

function TinhTongDuong(daySo: array of integer): integer;
var
i, tong: integer;
begin
tong := 0;
for i := 0 to Length(daySo) - 1 do
if daySo[i] > 0 then
tong := tong + daySo[i];
TinhTongDuong := tong;
end;

function TinhTongAm(daySo: array of integer): integer;
var
i, tong: integer;
begin
tong := 0;
for i := 0 to Length(daySo) - 1 do
if daySo[i] < 0 then
tong := tong + daySo[i];
TinhTongAm := tong;
end;

function TinhTongChan(daySo: array of integer): integer;
var
i, tong: integer;
begin
tong := 0;
for i := 0 to Length(daySo) - 1 do
if daySo[i] mod 2 = 0 then
tong := tong + daySo[i];
TinhTongChan := tong;
end;

function TinhTongLe(daySo: array of integer): integer;
var
i, tong: integer;
begin
tong := 0;
for i := 0 to Length(daySo) - 1 do
if daySo[i] mod 2 <> 0 then
tong := tong + daySo[i];
TinhTongLe := tong;
end;

procedure SapXepGiamDan(var daySo: array of integer);
var
i, j, temp: integer;
begin
for i := 0 to Length(daySo) - 2 do
for j := i + 1 to Length(daySo) - 1 do
if daySo[i] < daySo[j] then
begin
temp := daySo[i];
daySo[i] := daySo[j];
daySo[j] := temp;
end;
end;

procedure SapXepTangDan(var daySo: array of integer);
var
i, j, temp: integer;
begin
for i := 0 to Length(daySo) - 2 do
for j := i + 1 to Length(daySo) - 1 do
if daySo[i] > daySo[j] then
begin
temp := daySo[i];
daySo[i] := daySo[j];
daySo[j] := temp;
end;
end;

begin
// Nhập số lượng phần tử N
write('Nhap so luong phan tu N: ');
readln(N);

// Nhập dãy số
NhapDaySo(daySo, N);

// Xuất dãy số
XuatDaySo(daySo);

// Tính tổng dãy số
writeln('Tong cac phan tu cua day: ', TinhTongDaySo(daySo));

// Tìm Max, Min
var Max, Min: integer;
TimMaxMin(daySo, Max, Min);
writeln('Gia tri lon nhat trong day: ', Max);
writeln('Gia tri nho nhat trong day: ', Min);

// Tính tổng các phần tử dương
writeln('Tong cac phan tu duong cua day: ', TinhTongDuong(daySo));

// Tính tổng các phần tử âm
writeln('Tong cac phan tu am cua day: ', TinhTongAm(daySo));

// Tính tổng các phần tử chẵn
writeln('Tong cac phan tu chan cua day: ', TinhTongChan(daySo));

// Tính tổng các phần tử lẻ
writeln('Tong cac phan tu le cua day: ', TinhTongLe(daySo));

// Sắp xếp giảm dần
SapXepGiamDan(daySo);
writeln('Day sau khi sap xep giam dan:');
XuatDaySo(daySo);

// Sắp xếp tăng dần
SapXepTangDan(daySo);
writeln('Day sau khi sap xep tang dan:');
XuatDaySo(daySo);

readln;
end.

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

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.

HH

HUY HUỲNH QUANG

5 tháng 5 2023

Viết chương trình nhập vào một dãy gồm N số nguyên (N được nhập từ bàn phím). In ra màn hình tổng các phần tử chẳn, tổng các phần tử lẻ và giá trị lớn nhất của dãy số.

1

KV

Kiều Vũ Linh

5 tháng 5 2023

Bài 5:

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

i,n,max:integer;

sc, sl:longint;

Begin

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

For i:=1 to n do

Begin

Write('Nhap so thu ',i,' = ');rreadlna[i]);

If a[i] mod 2 = 0 then sc:=sc+b[i];

If a[i] mod 2 <> 0 then sl:=sl+a[i];

End;

max:=a[1];

For i:=2 to n do

If a[i] > max then max:=a[i];

Writeln('Tong cac so chan la ',sc);

Writeln('Tong cac so le la ',sl);

write('So lon nhat la ',max);

Readln

End.

HH

HUY HUỲNH QUANG

5 tháng 5 2023

Xin cảm ơn loading...

DD

Đặng Đức Nam

19 tháng 4 2023

Nhập vào một dãy số nguyên gồm n phần tử. Viết chương trình In ra màn hình tổng các số lẽ, số chẵn của dãy?

1

KV

Kiều Vũ Linh

20 tháng 4 2023

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

i,n:integer;

sc,sl:longint;

Begin

Write('Nhap so luong so cua day ');readln(n);

For i:=1 to n do

Begin

Write(a,'[',i,'] = ');readln(a[i]);

End;

Write('Tong cac so chan la ');

For i:=1 to n do

If a[i] mod 2 = 0 then sc:=sc+a[i];

Writeln(sc);

Write('Tong cac so le la ');

For i:=1 to n do

If a[i] mod 2 <> 0 then sl:=sl+a[i];

Write(sl);

Readln

End.

VA

Vân anh

22 tháng 4 2023

Câu 1 : Viết chương trình nhập vào dãy số gồm n phần tử. Tính và in ra màn hình tổng các số chẵn, các số lẻ của dãy vừa nhập

1

PS

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

22 tháng 4 2023

program TongChanLe;

var

n,i, chans, les: integer; a: array[1..100] of integer;

begin

chans := 0;

les := 0;

write('Nhap n: ');

readln(n);

for i:=1 to n do

begin

write('Nhap so thu ', i, ': ');

readln(a[i]);

if a[i] mod 2 = 0 then

chans := chans + a[i]

else

les := les + a[i];

end;

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

writeln('Tong cac so le la: ', les);

readln;

end.

Đúng(2)

VA

Vân anh

23 tháng 4 2023

Giúp tớ câu này với ạ

Nhập vào mảng số nguyên gồm n phần tử tìm phần tử lớn nhất ,phần tử nhỏ nhất của mảng in giá trị từng phần tử của mảng

K

k_o_t_en

8 tháng 5 2023

Viết chương trình nhập dãy số nguyên A gồm N phần tử (N được nhập vào từ bàn phím (N<=150).

a. In dãy số ra màn hình, mỗi phần tử cách nhau một ký tự trống.

b. Tính tổng các phần tử chẵn và in kết quả ra màn hình.

1

PS

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

8 tháng 5 2023

program BaiTap;

var

A: array[1..150] of integer;

N, i, sum: integer;

begin

write('Nhap so phan tu cua day A (N <= 150): ');

readln(N);

for i := 1 to N do

begin

write('Nhap phan tu thu ', i, ': ');

readln(A[i]);

end;

writeln('Day so vua nhap la:');

for i := 1 to N do

write(A[i], ' ');

writeln;

sum := 0;

for i := 1 to N do

if A[i] mod 2 = 0 then

sum := sum + A[i];

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

readln;

end.

Đúng(2)

K

k_o_t_en

8 tháng 5 2023

cảm ơn bạn ạ

Viết chương trình nhập dãy số nguyên A gồm N phần tử (N được nhập vào từ bàn phím (N<=150). a. In dãy số ra màn hình, mỗi phần tử cách nhau một ký tự trống. b. Tính tổng các phần tử chẵn và in kết quả ra màn...

HP

hà phương

8 tháng 5 2023

1

NH

Nguyễn Hoàng Tiến

29 tháng 7 2023

đitf

BL

Bảo Lê Nguyễn Vũ

18 tháng 1 2022

Viết chương trình nhập vào 1 dãy số nguyên a gồm n phần tử(0<n<100),viết chương trình xử lý các câu sau:
a) Tìm và in ra màn hình số lớn nhất,bé nhỏ của dãy a và vị trí của các số đó

#Tin học lớp 9

2

NL

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

18 tháng 1 2022

#include <bits/stdc++.h>

using namespace std;

long long a[100],n,i,ln,nn,vt1,vt2;

int main()

{

cin>>n;

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

ln=a[1];

nn=a[1];

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

{

ln=max(ln,a[i]);

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

}

cout<<ln<<" "<<nn;

return 0;

}

KV

Kiều Vũ Linh

19 tháng 1 2022

Var n,i,vtl,vtn,so max,min:integer;

Begin

Write('Nhap so luong so = ');readln(n);

vtl:=0;

vtn:=0;

max:=-32768;

min:=32767;

For i:=1 to n do

Begin

Write('Nhap vao so thu ',i);readln(so);

If so > max then

Begin

Max:=so;

vtl:=i;

End;

If so < min then

Begin

Min:=so;

vtn:=i;

End;

Writeln('So lon nhat la ',max,' tai vi tri thu ',i);

Write('So nho nhat la ',min,' tai vi tri thu ',i);

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

#Tin học lớp 11

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;

}