cho một dãy số gồm N phần tử(N< hoặc =100)giá trị từng phần tử là số thực,thực hiện các nhiệm vụ sau.a) nhập từ bàn phím số phần tử và giá trị của phần tửb)in ra các phần tử là số nguyên tốc) tính tổn...

TH

thu huyền

28 tháng 12 2022

cho một dãy số gồm N phần tử(N< hoặc =100)giá trị từng phần tử là số thực,thực hiện các nhiệm vụ sau.a) nhập từ bàn phím số phần tử và giá trị của phần tửb)in ra các phần tử là số nguyên tốc) tính tổng và trung bình cộng của các phần tử chẵn của dãy d) in các kết quả ra màn...

Đọc tiếp

#Tin học lớp 11

0

TL

Trúc Linh

9 tháng 4 2023

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

Đọc tiếp

#Tin học lớp 8

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.

Đúng(0)

EB

Ẹih bw

4 tháng 5 2023 - olm

Cho 1 dãy số gồm n phần tử n<=15.Giá trị từng phần tử là số thực. Thực hiện các chương trình sau: -Nhập từ bàn phím số phần tử và giá trị từng phần tử -Tính tổng các phần tử dương của dãy -Tính tổng và trung bình cộng của các phần tử lẻ của dãy -Tìm phần tử có giá trị lớn nhất của dãy -Tìm phần tử có giá trị nhỏ nhất -Sắp xếp dãy theo chiều tăng dần về giá trị của từng phần...

Đọc tiếp

#Tin học lớp 8

0

AV

anh vương

27 tháng 5 2022

giúp mình vớiCho một dãy số gồm n phần tử ( n<=50 ) giá trị phần tử là số nguyên. thực hiện chương trình sau .a) nhập từ bàn phím số phần tử và giá trị các phần tử b) tính tổng các phần tử số dương của dãyc) tìm số lớn nhất nhỏ nhất d) in ra màng hình kết...

Đọc tiếp

#Tin học lớp 8

1

NL

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

27 tháng 5 2022

uses crt;

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

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

begin

clrscr;

readln(n);

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

t:=0;

for i:=1 to n do

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

ln:=a[1];

nn:=a[1];

for i:=1 to n do

begin

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

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

end;

writeln(t);

writeln(ln);

writeln(nn);

readln;

end.

Đúng(3)

AV

anh vương

28 tháng 5 2022

cảm ơn bác nhiều nhe

Đúng(1)

NT

Ngọc Ty

24 tháng 4 2023

Viết chương trình nhập vào dãy số gồm có N phần tử a1, a2, a3,…,an (N<=100). Các phần tử của dãy số là các số nguyên (với n là số nguyên dương được nhập vào từ bàn phím). Thực hiện các yêu cầu sau:.a. In ra màn hình giá trị của các phần tử vừa nhập Tính tổng các số vừa nhập và in kết quả ra màn...

Đọc tiếp

#Tin học lớp 8

1

KV

Kiều Vũ Linh

24 tháng 4 2023

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

i,n:integer;

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;

Write('Cac phan tu vua nhap la ');

For i:=1 to n do

Write(a[i]:8);

Writeln;

Write('Tong cua chung la ',s);

Readln

End.

Đúng(1)

VT

Văn Tèo Trần

30 tháng 3 2023

Đề bài: cho dãy số gồm n phần tử. Thực hiện các chương trình sau a) nhập từ bàn phím số phần tử và giá trị từng phần tử b) xuất mảng vừa nhập theo chiều ngang c) tìm giá trị lớn nhất, nhỏ nhất của mảng vừa nhập d) tính tổng các phần tử âm của dãy

#Tin học lớp 8

1

NH

Nguyễn Hoàng Duy

30 tháng 3 2023

program BaiTapMang;

var
n, i, max, min, s: longint;
a: array[1..100] of integer;

begin
// Nhập số phần tử của mảng
write('Nhap so phan tu cua mang: ');
readln(n);

// Nhập giá trị từng phần tử của mảng
for i := 1 to n do
begin
write('Nhap gia tri phan tu thu ', i, ': ');
readln(a[i]);
end;

// Xuất mảng theo chiều ngang
writeln('Mang vua nhap la:');
for i := 1 to n do
write(a[i], ' ');

// Tìm giá trị lớn nhất và nhỏ nhất của mảng
max := a[1];
min := a[1];
for i := 2 to n do
begin
if a[i] > max then
max := a[i];
if a[i] < min then
min := a[i];
end;
writeln;
writeln('Gia tri lon nhat cua mang la: ', max);
writeln('Gia tri nho nhat cua mang la: ', min);

// Tính tổng các phần tử âm của mảng
s:= 0;
for i := 1 to n do
begin
if a[i] < 0 then
s:= s + a[i];
end;
writeln('Tong cac phan tu am cua mang la: ', s);

readln;
end.

Đúng(3)

VT

Văn Tèo Trần

5 tháng 4 2023

Có cách nào khác để làm nhanh hơn k

Đúng(0)

HH

Huy Hoang Nguyen

8 tháng 4 2023

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 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ãy. d. 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ãy. f. 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...

Đọc tiếp