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

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

#Tin học lớp 8

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)

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)

DN

Đỗ Nguyễn Thùy Lâm

4 tháng 5 2023

a) Viết chương trình nhập vào một dãy số nguyên gồm k phần tử, giá trị của từng phần tử cũng nhập vào từ bàn phím. Sau đó tính tích của các số nhỏ hơn 30 có trong dãy số đã nhậpb) Viết chương trình nhập vào một dãy số nguyên gồm n phần tử, giá trị của từng phần tử cũng nhập vào từ bàn phím. Sau đó tính tổng các số nhỏ hơn 100 có trong dãy số đã...

Đọc tiếp

#Tin học lớp 8

1

KV

Kiều Vũ Linh

5 tháng 5 2023

a) var a:array[1..1000] of integer;

i,k:integer;

p:longint;

begin

write('k = ');readln(k);

p:=1;

for i:=1 to k do

begin

write('Nhap so thu ',i,' = ');readln(a[i]);

if a[i]<30 then p:=p*a[i];

end;

write('Tich la ',p);

readln

end.

b)

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

i,k:integer;

s:longint;

begin

write('k = ');readln(k);

for i:=1 to k do

begin

write('Nhap so thu ',i,' = ');readln(a[i]);

if a[i]<100 then s:=s+a[i];

end;

write('Tong la ',s);

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

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

#Tin học lớp 8

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.

Đúng(1)

HH

HUY HUỲNH QUANG

5 tháng 5 2023

Xin cảm ơn loading...

Đúng(0)

L

Leoumax

22 tháng 2 2023

Giúp em vsBài 1:Viết chương trình nhập vào một dãy số thực gồm N số (N được nhập từ bàn phím và N <=100). Tính tổng tất cả các phần tử và tính giá trị trung bình của các phần tử đó.Bài 2:Tìm phần tử nhỏ nhất của một dãy số nguyên dương A1, A2,...,AN với N được nhập từ bàn phím và...

Đọc tiếp

#Tin học lớp 11

1

NL

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

23 tháng 2 2023

Bai 2:

uses crt;

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

i,n,t,nn:integer;

begin

clrscr;

readln(n);

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

nn:=a[1];

for i:=1 to n do

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

write(nn);

readln;

end.

Đúng(0)

BM

Bùi Minh Dũng

26 tháng 5 2021

Viết chương trình Pascal thực hiện các yêu cầu sau:

- Nhập vào một dãy số gồm N số nguyên

- Hiển thị dãy số vừa nhập

- Tìm giá trị lớn nhất, nhỏ nhất trong dãy số trên

#Tin học lớp 8

2

NA

nguyễn an phát

26 tháng 5 2021

program max_min;

uses crt;

var i,n,max,min:integer;

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

begin

clrscr;

write('nhap n:');readln(n);

for i:=1 to n do

begin

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

end;

writeln('day vua nhap la:');

for i:=1 to n do

write(a[i]:3);

writeln;

max:=a[1];min:=a[1];

for i:=1 to n do

begin

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

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

end;

writeln('gia tri lon nhat: ',max,' gia tri nho nhat: ',min);

readln;

end.

Đúng(1)

LT

Lê Thị Thu Phương

7 tháng 6 2021

uses crt;
var a:array[1..1000000] of longint;
n,i,max,min:longint;
begin
clrscr;
write('Nhap so luong phan tu: '); readln(n);
for i:=1 to n do
begin
write('Nhap phan tu thu ',i,': '); readln(a[i]);
end;
write('Day so vua nhap: ');
for i:=1 to n do write(a[i],' '); writeln;
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('GTLN: ',max);
writeln('GTNN: ',min);
readln;
end.

Đúng(0)

TT

Tuấn Trần thị

10 tháng 5 2023

Câu 1. Viết chương trình thực hiện yêu cầu sau: a, Sử dụng mảng để nhập từ bàn phím các phân tử của 1 dãy số có kiểu số nguyên? Biết độ dài của dãy số được nhập từ bàn phím . b, In ra màn hình các số vừa nhập của dãy số đó. c, In ra màn hình số lớn nhất trong dãy số. Mn giúp mik với mik cần gấp.mik c.ơn

#Tin học lớp 8

1

KV

Kiều Vũ Linh

10 tháng 5 2023

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

i,n,max:integer;

Begin

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

For i:=1 to n do

Begin

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

End;

Write('Cac diem vua nhap la: ');

For i:=1 to n do

Write(a[i]:8);

writeln;

max:=a[1];

For i:=2 to n do

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

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

Readln

End.

Đúng(1)

Chúng tôi đề xuất

Tài nguyên

Ứng dụng mobile

Bảng xếp hạng

Các khóa học có thể bạn quan tâm

Yêu cầu VIP