2. Viết chương trình nhập dãy n số nguyên và in ra số lớn nhất (Max) của dãy. Yêu cầu sử dụng hàm MAX(a) để tìm giá trị lớn nhất (Max). 3.Viết chương trình cho phép nhập một xâu từ bàn phím. Thực...

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

#Tin học lớp 10

1

VL

Vui lòng để tên hiển thị

6 tháng 4

#include <bits/stdc++.h>
using namespace std;
long long a[1000007];
long long n;
void kq()
{
long long ans=-1e18;
for(int i=1; i<=n; i++)
{
ans=max(ans, a[i]);
}
cout<<ans;
}
int main()
{
cin>>n;
for(int i=1; i<=n; i++)
{
cin>>a[i];
}
kq();
}

Đúng(2)

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

0

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.

UO

Uchiha Obito

9 tháng 5 2021

sử dụng biến mảng Viết chương trình nhập vào một dãy số gồm n số nguyên từ bàn phím in ra màn hình giá trị lớn nhất của dãy số đó

1

NL

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

9 tháng 5 2021

uses crt;

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

i,n,max:integer;

begin

clrscr;

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

for i:=1 to n do

begin

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

end;

max:=a[1];

for i:=1 to n do

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

writeln(max);

readln;

end.

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

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.

NL

Nguyễn Linh

29 tháng 4 2021

Viết thuật toán và chương trình tìm giá trị lớn nhất(in ra vị trí chứa phần tử có giá trị lớn nhất) của dãy số gồm n số nguyên được nhập từ bàn phím. (Sử dụng mảng).

2

K

KhảTâm

29 tháng 4 2021

uses crt;

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

max,n,i:integer;

begin

writeln('nhap do dai cua day');readln(n);

for i:=1 to n do begin writeln('A[',i,']=;);readln(a[i]); end;

max:=a[1];

for i:=2 to n do if a[i] > max then begin

max:=a[i]; writeln('vi tri cua max trong day la',i);end;

readln

end.

thật ra thì cũng không cần biến max nhưng mình làm vậy cho dễ hiểu hơn nhé!

NL

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

29 tháng 4 2021

*Thuật toán:

-Bước 1: Nhập n và nhập dãy số

-Bước 2: max←a[1]; i←1;

-Bước 3: i←i+1;

-Bước 4: Nếu max<a[i] thì max←a[i];

-Bước 5: Nếu i<=n thì quay lại bước 3

-Bước 6: Cho for chạy từ 1 đến n

Nếu a[i]=max thì xuất i

-Bước 7: Kết thúc

HL

Hắc Lang

6 tháng 5 2021

Sử dụng biến mảng để viết chương trình nhập vào một dãy sô gồm N số nguyên tử bàn phím in ra màn hình giá trị lớn nhất của dãy số đó.

1

NL

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

7 tháng 5 2021

uses crt;

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

i,n,max:integer;

begin

clrscr;

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

for i:=1 to n do

begin

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

end;

max:=a[1];

for i:=1 to n do

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

writeln(max);

readln;

end.

HP

Hiếu Phùng Mạnh

2 tháng 5 2023

cho in ra màn hình giá trị nhỏ nhất cùng luôn thì làm như thế nào bạn

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

PN

phung nguyen

8 tháng 5 2023

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

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.

T

Trường

11 tháng 3 2022

Viết chương trình tìm giá trị nhỏ nhất trong dãy A gồm N số nguyên (N không quá 100), nhập từ bàn phím (yêu cầu: sử dụng hàm tìm số nhỏ nhất trong 2 số x và y) Dùng pascal ạ mn giúp mình với!!!

#Tin học lớp 11

1

NL

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

11 tháng 3 2022

uses crt;

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

i,n,min:integer;

begin

clrscr;

readln(n);

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

min:=a[1];

for i:=1 to n do

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

writeln(min);

readln;

end.

TD

Thư ĐT

6 tháng 5 2022

Viết chương trình pascal 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 và in ra màn hình số lớn nhất của dãy số vừa nhập từ bàn phím.

sử dụng biến mảng viết chương trình nhập vào N số nguyên từ bàn phím .sau đó in ra màn hình giá trị lớn nhất và nhỏ nhất của dãy sốgiúp mik...

0

HP

Hiếu Phùng Mạnh

2 tháng 5 2023

1

ML

Minh Lệ

2 tháng 5 2023

Program HOC24;

var min,max,i,n: integer;

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

begin

write('Nhap N: '); readln(n);

for i:=1 to n do

begin

write('A[',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;

writeln('Gia tri lon nhat la: ',max);

write('Gia tri nho nhat la: ',min);

readln

end.