Viết chương trình nhập vào 1 dãy số, có chiều dài là N với N được nhập từ bàn phíma) Tính tổng của các phần tử trong dãy sốb) Tìm giá trị lớn nhất của dãyc) Tìm giá trị nhỏ nhất của dãyd) Tính tổng cá...

TL

Thùy Linh Võ

11 tháng 5 2022

Viết chương trình nhập vào 1 dãy số, có chiều dài là N với N được nhập từ bàn phíma) Tính tổng của các phần tử trong dãy sốb) Tìm giá trị lớn nhất của dãyc) Tìm giá trị nhỏ nhất của dãyd) Tính tổng các phần tử chẵn trong dãye) Tính tổng các phần tử lẻ trong...

Đọc tiếp

#Tin học lớp 8

1

NL

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

12 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

t:=t+a[i];

writeln(t);

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(ln);

writeln(nn);

readln;

end.

Đúng(0)

BN

Bùi Nam

19 tháng 4 2023

viết chương trình nhập 1 số dãy số gồm N phần tử
a) tính tổng các phần tử trong dãy
b) tính tổng các phần tử lẽ trong dãy
c) tính phần tử lớn nhất, bé nhất trong dãy
d) đếm xem có bao nhiêu phần tử có giá trị lớn nhất
help me

#Tin học lớp 8

1

TD

Trần Đức Hải Phong

25 tháng 12 2023

program XuLyDaySo;

var
N, i, soNguyen, tong, tongLe, max, min, demMax: integer;

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

// Khởi tạo các biến
tong := 0;
tongLe := 0;
demMax := 0;

// Nhập dãy số và thực hiện các phép toán
for i := 1 to N do
begin
write('Nhap phan tu thu ', i, ': ');
readln(soNguyen);

// a) Tính tổng các phần tử trong dãy
tong := tong + soNguyen;

// b) Tính tổng các phần tử lẻ trong dãy
if soNguyen mod 2 <> 0 then
tongLe := tongLe + soNguyen;

// c) Tìm phần tử lớn nhất, bé nhất trong dãy
if i = 1 then
begin
max := soNguyen;
min := soNguyen;
end
else
begin
if soNguyen > max then
max := soNguyen;
if soNguyen < min then
min := soNguyen;
end;

// d) Đếm số lượng phần tử có giá trị lớn nhất
if soNguyen = max then
demMax := demMax + 1;
end;

// In kết quả
writeln('a) Tong cac phan tu cua day: ', tong);
writeln('b) Tong cac phan tu le cua day: ', tongLe);
writeln('c) Phan tu lon nhat trong day: ', max);
writeln(' Phan tu nho nhat trong day: ', min);
writeln('d) So luong phan tu co gia tri lon nhat: ', demMax);

readln;
end.

Đúng(0)

PN

phung nguyen

8 tháng 5 2023

Viết chương trình sử dụng biến mảng để nhập từ bàn phím các phần tử của một dãy số.a, In ra màn hình các số vừa nhập ( độ dài của dãy cũng được nhập từ bàn phím)b, Tính tổng các phần tử của dãy sốc, Tính giá trị nhỏ nhất của dãy sốd, Tìm giá trị lớn nhất của dãy...

Đọc tiếp

#Tin học lớp 9

2

KV

Kiều Vũ Linh

9 tháng 5 2023

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

i,n,max,min,s:real;

Begin

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

For i:=1 to n do

Begin

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

End;

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;

Write('Cac so vua nhap la ');

for i:=1 to n do write(a[i]:10:2):

Writeln;

Writeln('Tong la ',s:10:2);

Writeln('So nho nhat la ',min:10:2);

Write('So lon nhat la ',max:10:2);

Readln

End.

Đúng(1)

PC

Phùng Công Anh

27 tháng 5 2023

var
Mang: array[1..100] of Integer;
N, i, Tong, Min, Max: Integer;

begin
// Yêu cầu nhập độ dài của dãy số từ bàn phím
Write('Nhap do dai cua day so: ');
ReadLn(N);

// Yêu cầu nhập các phần tử của dãy từ bàn phím
for i := 1 to N do
begin
Write('Nhap phan tu thu ', i, ': ');
ReadLn(Mang[i]);
end;

// In ra màn hình các số vừa nhập
Write('Cac so vua nhap: ');
for i := 1 to N do
begin
Write(Mang[i], ' ');
end;
WriteLn;

// Tính tổng các phần tử của dãy số
Tong := 0;
for i := 1 to N do
begin
Tong := Tong + Mang[i];
end;
WriteLn('Tong cac phan tu cua day so la: ', Tong);

// Tìm giá trị nhỏ nhất của dãy số
Min := Mang[1];
for i := 2 to N do
begin
if Mang[i] < Min then
Min := Mang[i];
end;
WriteLn('Gia tri nho nhat cua day so la: ', Min);

// Tìm giá trị lớn nhất của dãy số
Max := Mang[1];
for i := 2 to N do
begin
if Mang[i] > Max then
Max := Mang[i];
end;
WriteLn('Gia tri lon nhat cua day so la: ', Max);

ReadLn;
end.

Đúng(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)

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)

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)

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)

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)

NP

Nguyễn Phúc

18 tháng 5 2021

các bn giúp mik tin với NHẬP VÀO DÃY SỐ GỒM n PHẦN TỬ, n NHẬP TỪ BÀN PHÍMa) tính tổng các số am trong dãy b) tính tổng các số chia hết cho 2 trong dãyc) tính tổng các số dương và chia hết cho 3 trong dãyHD: dựa vào chương trình bài 2 b) nêu điều kiện để 1 số chia hết cho 2c) khi có 2 điều kiện em cần dùng thêm hàm nào?MONG CÁC BN TRẢ LỜI SỚM GIÚP...

Đọc tiếp

#Tin học lớp 8

1

NL

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

19 tháng 5 2021

uses crt;

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

i,n,t1,t2,t3:integer;

begin

clrscr;

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

for i:=1 to n do

begin

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

end;

t1:=0;

for i:=1 to n do

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

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

t2:=0;

for i:=1 to n do

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

writeln('Tong cac so chia het cho 2 la: ',t2);

t3:=0;

for i:=1 to n do

if (a[i]>0) and (a[i] mod 3=0) then t3:=t3+a[i];

writeln('Tong cac so duong chia het cho 3 la: ',t3);

readln;

end.

Đúng(1)

MK

Minh Khôi

12 tháng 5 2022

Viết chương trình nhập vào dãy số nguyên có n phần tử

- Tính tổng dãy số nguyên

- Tìm giá trị lớn nhất,nhỏ nhất trong các số nguyên đó

Giup minh voi moi nguoi oi.

#Tin học lớp 8

2

NL

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

12 tháng 5 2022

#include <bits/stdc++.h>

using namespace std;

long long a[1000],i,n,ln,nn,t;

int main()

{

cin>>n;

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

t=0;

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

ln=a[1];

nn=a[1];

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

{

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

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

}

cout<<t<<endl;

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

return 0;

}

Đúng(0)

KV

Kiều Vũ Linh

12 tháng 5 2022

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

i,n,s,max,min:integer;

Begin

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

For i:=1 to n do

Begin

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

End;

s:=a[1];

max:=a[1];

min:=a[1];

For i:=2 to n do

Begin

s:=s+a[i];

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

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

End;

Writeln('Tong la ',s);

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

Write('So nho nhat la ',min);

Readln;

End.

Đúng(0)

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