Bài tập PSC55: Lập chương trình nhập vào một dãy số. Tìm phần tử lớn nhất, nhỏ nhất và vị trí của nó trong dãy vừa nhập. In ra màn hình theo quy tắc:Dòng thứ 1: số đầu tiên là giá trị lớn nhất, số th...

TD

Trần Đức Anh

10 tháng 10 2022

Bài tập PSC55: Lập chương trình nhập vào một dãy số. Tìm phần tử lớn nhất, nhỏ nhất và vị trí của nó trong dãy vừa nhập. In ra màn hình theo quy tắc:Dòng thứ 1: số đầu tiên là giá trị lớn nhất, số thứ 2 là vị trí của nóDòng thứ 2: số đầu tiên là giá trị nhỏ nhất, số thứ 2 là vị trí của nó.Giả sử trong dãy không có cặp số nào bằng...

Đọc tiếp

#Tin học lớp 8

0

TN

Thảo Nguyên 36-88

26 tháng 3 2022

Viết chương trình nhập biến mảng M gồm 100 phần tử thuộc kiểu số nguyên +nhập các phần tử và in ra màn hình + tìm và in ra màn hình giá trị lớn nhất trong dãy số vừa nhập +tìm và in ra màn hình giá trị nhỏ nhất trong dãy số vừa nhập

#Tin học lớp 8

1

J

JamesDang

26 tháng 3 2022

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

begin
clrscr;
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:=1 to n do
begin
if max<a[i] then max:=a[i];
if min>a[i] then min:=a[i];
end;
writeln('So lon nhat trong mang la: ',max);
write('So nho nhat trong mang la: ',min);
readln
end.

Đúng(1)

EF

erddedfrferf ffvf fd

15 tháng 2 2022

viết chương trình nhập vào dãy số gồm N phần tử từ bàn phím

a) in ra màn hình vị trí của các số lẻ có trong dãy để nhập

b) in ra màn hình giá trị nhỏ nhất của dãy và vị trí của nó trong dãy

viết bằng chương trình C++

mảng(array) trong C++

#Tin học lớp 8

1

NL

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

15 tháng 2 2022

#include <bits/stdc++.h>

using namespace std;

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

int main()

{

cin>>n;

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

for (i=1; i<=n; i++) if (a[i]%2!=0) cout<<i<<" ";

cout<<endl;

nn=a[1];

for (i=1; i<=n; i++) nn=min(nn,a[i]);

cout<<nn<<endl;

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

return 0;

}

Đúng(0)

EF

erddedfrferf ffvf fd

15 tháng 2 2022

sao không chạy được :<<

Đúng(0)

TT

Tran Trang

20 tháng 4 2023

Bài tập 2. Viết chương trình nhập vào 1 dãy gồm n số nguyên. In dãy vừa nhập và đưa ra phần tử có giá trị lớn nhất và nhỏ nhất của mảng.

#Tin học lớp 8

1

H9

HT.Phong (9A5)

CTVHS

20 tháng 4 2023

Uses crt;

var n,i,max,min: integer;

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

begin clrscr;

readln(n);

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

max:=a[1];

for i:=1 to n do if(max<a[i]) then max:=a[i];

writeln(max);

min:=a[1];

for i:=1 to n do if(min>a[i]) then min:=a[i];

writeln(min);

readln;

end.

Đúng(2)

DV

Đức Vượng

16 tháng 5 2021

em hãy viết chương trình nhập vào n số nguyên (0<N<688886)a1,a2,a3 ;...an(-9 tỷ tỷ<=ai<=+9 tỷ tỷ) vào từ bàn phím. in ra màn hình dãy số vừa nhập , số lớn nhất có trong dãy , vị trí của các số lớn nhất có trong dãy, số lượng phần tử lớn nhất có trong dãy mỗi kết quả trên 1 dòng .ví dụ:nhập vào n = 5;các phần tử a1= 500; a2=125 ; a3=300;a4=25;a5=500;kết quả trên màn hình là : 100 125 300 25 500 500 1 5 2Giup mình...

Đọc tiếp

#Tin học lớp 8

2

NL

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

17 tháng 5 2021

uses crt;

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

i,n,max,dem:integer;

begin

clrscr;

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

for i:=1 to n do

begin

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

end;

for i:=1 to n do

write(a[i]:4);

writeln;

max:=a[1];

for i:=1 to n do

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

writeln('So lon nhat la: ',max);

write('Vi tri cua so lon nhat la: ');

for i:=1 to n do

if max=a[i] then write(i:4);

writeln;

dem:=0;

for i:=1 to n do

if max=a[i] then inc(dem);

writeln('So luong phan tu lon nhat trong day la: ',dem);

readln;

end.

Đúng(1)

LT

Lê Thị Thu Phương

7 tháng 6 2021

uses crt;
var a:array[1..100000000] of int64;
n,i,d,max:longint;
begin
clrscr;
repeat
write('Nhap so luong phan tu: '); readln(n);
if (n<=0) and (n>688886) then writeln('NHAP LAI!');
until (n>0) and (n<=688886);
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],' ');
max:=a[1];
for i:=1 to n do if a[i]>max then max:=a[i];
writeln;
writeln('So lon nhat: ',max);
write('Vi tri cua cac so lon nhat: ');
for i:=1 to n do if a[i]=max then begin write(i,' '); inc(d) end;
writeln;
writeln('So luong so lon nhat: ',d);
readln;
end.

Đúng(0)

BL

Bảo Lê Nguyễn Vũ

18 tháng 1 2022

Viết chương trình nhập vào 1 dãy số nguyên a gồm n phần tử(0<n<100),viết chương trình xử lý các câu sau:
a) Tìm và in ra màn hình số lớn nhất,bé nhỏ của dãy a và vị trí của các số đó

#Tin học lớp 9

2

NL

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

18 tháng 1 2022

#include <bits/stdc++.h>

using namespace std;

long long a[100],n,i,ln,nn,vt1,vt2;

int main()

{

cin>>n;

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

ln=a[1];

nn=a[1];

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

{

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

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

}

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

return 0;

}

Đúng(0)

KV

Kiều Vũ Linh

19 tháng 1 2022

Var n,i,vtl,vtn,so max,min:integer;

Begin

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

vtl:=0;

vtn:=0;

max:=-32768;

min:=32767;

For i:=1 to n do

Begin

Write('Nhap vao so thu ',i);readln(so);

If so > max then

Begin

Max:=so;

vtl:=i;

End;

If so < min then

Begin

Min:=so;

vtn:=i;

End;

Writeln('So lon nhat la ',max,' tai vi tri thu ',i);

Write('So nho nhat la ',min,' tai vi tri thu ',i);

Readln;

End.

Đúng(0)

AC

Ái Cầm Trần

2 tháng 3 2023

1.Viết chương rình nhập vào từ bàn phím một dãy các số nguyên, thông báo ra màn hình giá số lớn nhất có trong dãy vừa nhập. trị 2.Viết chương rình nhập vào từ bàn phím một dãy các số nguyên, thông báo ra màn hình giá trị số nhỏ nhất có trong dãy vừa nhập. 3. Viết chương rình nhập vào từ bàn phím một dãy các số nguyên, tính và thông báo ra màn hình tổng các số có giá trị là chẵn có...

Đọc tiếp

#Tin học lớp 10

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)

TN

Trần Nguyễn Huỳnh

7 tháng 3 2021

Viết chương trình nhập vào dãy số gồm n phần tử a1,a2...an tìm vị trí và in ra giá trị lớn nhất dãy số

#Tin học lớp 11

2

BA

Bùi Anh Tuấn

7 tháng 3 2021

Đúng(1)

NL

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

7 tháng 3 2021

uses crt;

var a:array[1..200]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('Gia tri lon nhat la: ',max);

write('Vi tri la: ');

for i:=1 to n do

if max=a[i] then write(i:4);

readln;

end.

Đúng(1)

NT

Nguyễn Thị Bích Huyền

20 tháng 12 2020

hãy lập chương trình nhập từ bàn phím một dãy số nguyên n phần tử (với n<=100) sau đó tính và hiển thị ra màn hình phần tử có giá trị nhỏ nhất, lớn nhất trong dãy

#Tin học lớp 11

2

NL

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

20 tháng 12 2020

uses crt;

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

i,n,max,min: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];

min:=a[1];

for i:=1 to n do

begin

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

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

end;

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

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

readln;

end.

Đúng(1)

BA

Bùi Anh Tuấn

20 tháng 12 2020

Đúng(1)

TL

Thọ Lê Đức

27 tháng 4 2023

Bài 23: Viết chương trình nhập vào 1 mảng số nguyên.In ra màn hình giá trị trung bình của mảng đó và các phân tử lớn hơn giá trị trung bình của mảng đó Bài 24:Viết 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 CẦN GẤP CÂU TRẢ LỜI Ạ:((

#Tin học lớp 8

2

KV

Kiều Vũ Linh

28 tháng 4 2023

Bài 23

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

i,n:integer;

s,tbc:real;

begin

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

for i:=1 to n do

begin

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

s:=s+a[i];

end;

tbc:=s/n;

writeln('Gia tri trung binh la ',tbc:10:2);

write('Cac so lon hon gia tri trung binh la: ');

for i:=1 to n do

if a[i] > tbc then write(a[i]:8);

readln

end.

Đúng(0)

KV

Kiều Vũ Linh

28 tháng 4 2023

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

i,n,max:integer;

begin

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

for i:=1 to n do

begin

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

end;

max:=a[1];

for i:=2 to n do

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

for i:=1 to n do

begin

if max=a[i] then write(max,' o vi tri thu ',i);

break;

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