Bài 3. Viết chương trình nhập từ bàn phím dãy số thực có N phần tử (1

#Tin học lớp 11

1

NL

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

24 tháng 2 2022

#include <bits/stdc++.h>

using namespace std;

double a[100];

int i,n;

int main()

{

cin>>n;

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

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

cout<<endl;

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

swap(a[i],a[n+1-i]);

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

return 0;

}

TV

Trần Văn Việt Hùng

24 tháng 2 2022

bn ơi bn làm bằng pascal đc ko ạ, mik cần cả hai cái lun

Bài 1: viết chương trình nhập dãy số nguyên A gồm N phần tử. Với N được nhập từ bàn phím. Tìm và in kết quả ra màn hình phân tử nhỏ nhất của dãy số.Bài 2:viết chương trình nhập dãy số nguyên A gồm N phần tử. Với N được nhập từ bàn phím. Tìm và in kết quả ra màn hình phân tử lớn nhất của dãy...

HK

hoàng kim

5 tháng 5 2021

2

NL

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

5 tháng 5 2021

Bài 1:

uses crt;

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

i,n,min:integer;

begin

clrscr;

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

for i:=1 to n do

begin

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

end;

min:=a[1];

for i:=1 to n do

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

writeln(min);

readln;

end.

Đúng(2)

NL

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

5 tháng 5 2021

Bài 2:

uses crt;

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

i,n,max:integer;

begin

clrscr;

write('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.

NP

Nguyễn Phương Mai

27 tháng 4 2022

Viết chương trình pacsal để nhập từ bàn phím các phần tử của 1 dãy số . Độ dài N của dãy số nhập từ bàn phím ( 2 < n

1

KV

Kiều Vũ Linh

28 tháng 4 2022

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

i,n:integer;

Begin

n:=0;

While n < 2 do

Begin

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

End;

For i:=1 to n do

Begin

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

End;

Readln;

End.

Viết một chương trình thực hiện các công việc sau:- Nhập từ bàn phím 1 dãy A gồm N số nguyên (với N được nhập từ bàn phím).- Sắp xếp dãy số đó theo chiều giảm dần. - In ra mà hình tất cả các phần tử chẵn- Tìm và đưa ra chỉ số của phần tử có gía trị = K (với K là số nguyên và được nhập từ bàn...

HD

Huyền Diệu Nguyễn

23 tháng 12 2021

#Tin học lớp 11

1

NL

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

24 tháng 12 2021

#include <bits/stdc++.h>

using namespace std;

long long n,i,a[1000];

int main()

{

cin>>n;

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

sort(a+1,a+n+1);

for (i=n; i>=1; i--) cout<<a[i]<<" ";

return 0;

}

HN

Hồ Ngọc Thiện

21 tháng 3 2022

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 dãy N số thực

0

V

Vochehoang

26 tháng 4 2021

C1 Viết Chương trình nhập vào một mảng số thực gồm n phần tử tính tổng các phần tử chẵn ( n được nhập tử bàn phím )

C2 Viết chương trình nhập vào một mảng số nguyên gồm n phần tử tính tích các phần tử có trong dãy số đó

2

NL

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

26 tháng 4 2021

Câu 1:

uses crt;

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

i,n:integer;

t:real;

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:4:2);

readln;

end.

NL

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

26 tháng 4 2021

Câu 2:

uses crt;

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

i,n:integer;

t:real;

begin

clrscr;

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

for i:=1 to n do

begin

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

end;

t:=1;

for i:=1 to n do

t:=t*a[i];

writeln(t:4:2);

readln;

end.

TT

Thu Trần Thị

19 tháng 4 2023

Viết chương trình nhập vào dãy số có n phần tử với n được nhập từ bàn phím .in ra phần tử vừa nhập ra màn hình

1

PS

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

19 tháng 4 2023

program NhapDaySo;
uses crt;
const
MAX = 100;
var
n, i: integer;
a: array[1..MAX] of real;
begin
clrscr;
write('Nhap so phan tu: ');
readln(n);

for i := 1 to n do
begin
write('Nhap phan tu thu ', i, ': ');
readln(a[i]);
end;

writeln('Day so da nhap la: ');
for i := 1 to n do
begin
writeln('Phan tu thu ', i, ': ', a[i]:0:2);
end;

readln;
end.

LH

Ly Huỳnh

12 tháng 3 2023

Viết chương trình nhập dãy số A có n phần tử từ bàn phím, tính tổng các phần tử trong A

#Tin học lớp 10

1

ML

Minh Lệ

12 tháng 3 2023

Program HOC24;

var i,n: integer;

t: longint;

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;

t:=0;

for i:=1 to n do t:=t+a[i];

write('Ket qua la: ',t);

readln

end.

Bài 1: Nhập từ bàn phím một dãy số nguyên ko âm. Hãy in ra màn hình chỉ số i nhỏ nhất sao cho tổng các phần tử từ 1 đến i lớn hơn 100.Bài 2: Hãy viết chương trình Pascal để thực hiện các nhiệm vụ sau:_ Nhập vào tù bàn phím 1 dãy số ko quá 30 số nguyên_ Kiểm tra rồi cho biết dãy số vừa nhập có pải là dãy số ko giảm hay ko ? ( VD 1,2,5,5,6,8,9 là dãy số ko giảm ) Anh chị em bạn dì chú bác ông bà bố mẹ cậu mợ...

MV

MinhAnh Vũ

5 tháng 5 2021

2

NL

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

5 tháng 5 2021

Bài 2:

uses crt;

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

i,n,kt:integer;

begin

clrscr;

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

for i:=1 to n do

begin

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

end;

kt:=0;

for i:=1 to n-1 do

if a[i]>a[i+1] then kt:=1;

if kt=0 then write('Day so khong giam')

else writeln('Day so lon xon');

readln;

end.

NQ

Nguyễn Quang

7 tháng 5 2021

Đề sai, ko phải lm nx, cô bảo ko thì vào đâu🙂

KN

Khang Ngo

20 tháng 4 2023

viết chương trình nhập 1 dãy số nguyên gồm n phần tử, tính trung bình cộng dãy số vừa nhập (n đc nhập từ bàn phím) trong thony

1

KN

Khang Ngo

20 tháng 4 2023

N=int(input(‘n=’))

A=[0]*n

For I in range(0,n):

A=int(input(a[‘+str(i+1)+’]=’))

S=s+a[i]

S₁ =s/n

Print(s₁)