Viết chương trình nhập vào một mảng

HV

Hoàng Vlogs

14 tháng 1 2022

Viết chương trình nhập vào một mảng;a. Viết hàm tìm vị trí phần tử lớn nhất trong mảng vừa nhập.b. Viết hàm chèn phần tử có giá trị X vào phía sau phần tử có giá trị lớn nhất trong mảng.c. In ra mảng sau khi chèn phần tử XLấy một ví dụ giải thích cho ý a., ý...

Đọc tiếp

#Tin học lớp 12

0

D0

Divine 000

21 tháng 2 2021

1. Viết chương trình nhập vào một mảng các số nguyên. Tìm tổng các số. 2. Viết chương trình nhập vào một mảng các số nguyên. Tính và xuất tổng các số chẵn có trong mảng.3. Viết chương trình nhập vào một mảng các số nguyên. Tính và xuất tổng các số lẻ có trong mảng.4. Viết chương trình nhập vào một dãy các số nguyên. Hãy đưa ra màn hình có bao nhiêu số chẳn và bao nhiêu số lẻ trong dãy.5. Viết...

Đọc tiếp

#Tin học lớp 11

1

NL

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

21 tháng 2 2021

Câu 1:

uses crt;

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

i,n,t:integer;

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

t:=t+a[i];

writeln('Tong cac so trong mang la: ',t);

readln;

end.

Câu 2:

uses crt;

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

i,n,t:integer;

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('Tong cac so chan la: ',t);

readln;

end.

Đúng(1)

B

Benny

7 tháng 3 2023

BT1: Viết chương trình nhập vào một mảng gồm 10 phần tử số nguyên. In ra màn hình mảng vừa nhập và tính tổng các phần tử trong mảng. BT2: Viết chương trình nhập vào một mảng gồm 10 phần tử số thực. In ra màn hình các phần tử có chỉ số chẵn trong mảng. BT3: Viết chương trình nhập vào một mảng gồm n phần tử số nguyên. In ra màn hình các phần tử có giá trị chẵn trong mảng. BT4: Viết...

Đọc tiếp

#Tin học lớp 11

1

NL

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

9 tháng 3 2023

6:

#include <bits/stdc++.h>

using namespace std;

int main()

{

int n,A[100],i,dem=0;

cin>>n;

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

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

if (A[i]%2!=0) dem++;

cout<<dem;

return 0;

}

5:

#include <bits/stdc++.h>

using namespace std;

int main()

{

long long n,nn=1e6,A[1000];

cin>>n;

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

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

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

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

if (nn==A[i]) cout<<i<<" ";

return 0;

}

Đúng(0)

PL

Phùng Lê Anh Thơ

6 tháng 5 2023

Viết chương trình nhập vào một mảng và in kết quả ra mảng vừa nhập ?

#Tin học lớp 8

2

GB

gấu béo

7 tháng 5 2023

program NhapMang;

var

mang: array of integer;

n, i: integer;

begin

write('Nhap so phan tu cua mang: ');

readln(n);

setlength(mang, n);

writeln('Nhap cac phan tu cua mang:');

for i := 0 to n-1 do

begin

readln(mang[i]);

end;

writeln('Mang vua nhap la:');

for i := 0 to n-1 do

begin

write(mang[i], ' ');

end;

readln;

end.

Đúng(0)

NH

Nguyễn Hoàng Duy

7 tháng 5 2023

program NhapMang;
const
MAXSIZE = 100;
var
a: array[1..MAXSIZE] of integer;
n, i: integer;
begin
write('Nhap so luong phan tu cua mang: ');
readln(n);
for i := 1 to n do
begin
write('a[', i, '] = ');
readln(a[i]);
end;
writeln('Mang vua nhap la:');
for i := 1 to n do
write(a[i], ' ');
end.

Đúng(0)

NN

Nguyễn Ngọc Quỳnh Như

3 tháng 4 2019 - olm

1.Viết chương trình tìm giá trị lớn nhất của một mảng chứa các số Z gồm N phần tử.

2.Viết chương trình nhập vào một mảng gồm N số nguyên. Sắp xếp lại mảng theo thứ tự tăng dần và in ra kết quả màn hình.

3.Viết chương trình nhập vào một mảng A gồm N số nguyên và nhập thêm vào một số nguyên X. Hãy kiểm tra xem phần tử X có trong mảng A hay không ?

#Toán lớp 8

2

NC

Nguyễn Công Tỉnh

3 tháng 4 2019

1.

Program Tim_Max;
Var A:Array[1..255] of Integer;
i, n, Max: Integer;
Begin
Write('Nhap n: '); Readln(n);
For i := 1 to n do
Begin
Write('Nhap phan tu A[',i,'] = '); Readln(A[i]);
End;
Max := A[1];
For i := 2 to n do if A[i]>Max then Max := A[i];
Write('Phan tu lon nhat la :',Max);
Readln
End.

2.

Uses Crt;
Type Mang = ARRAY[1..50] Of Integer;
Var A:Mang;
N,i,j,Tam:Integer;
Begin
{Nhập mảng}
Write('Nhap N='); Readln(N);
For i:=1 To N Do
Begin
Write('A[',i,']='); Readln(A[i]);
End;
{Sắp xếp}
For i:=1 To N-1 Do
For j:=i+1 To N Do
If A[i]>A[j] Then
Begin
Tam:=A[i]; A[i]:=A[j]; A[j]:=Tam;
End;
{In kết quả ra màn hình}
Writeln('Ket qua sau khi sap xep:');
For i:=1 To N Do Write(A[i]:5);
Readln;
End.

3.

Uses Crt;
Type Mang = ARRAY[1..50] Of Integer;
Var A:Mang;
N,i,x:Integer;

Function TimKiem(x, N: Integer; A:Mang):Integer;
Var i:Integer;
Begin
I:=1;
While (I <= N) and (X<>A[I]) do I:=I+1; {{{{tại sao lại phải làm như bước này, tại sao lại lấy i đi so sánh với N}}}}
If I <= N Then Timkiem:=I Else Timkiem:=0;
End;

Begin
{Nhập mảng}
Write(‘Nhap N=’); Readln(N);
For i:=1 To N Do
Begin
Write(‘A[‘,i,’]=’); Readln(A[i]);
End;
Write(‘Nhap X=’); Readln(x);
{Kết quả tìm kiếm}
If TimKiem(X,N,A)<>0 Then
Writeln(‘Vi tri cua X trong mang la:’, TimKiem(X,N,A))
Else Writeln(‘X khong co trong mang.’);
Readln;
End.

Đúng(0)

NC

Nguyễn Công Tỉnh

3 tháng 4 2019

câu 1 tham khảo cái này nhé

Uses Crt;

Type Mang = ARRAY[1..50] Of Integer;

Var A:Mang;

N,i,Max:Integer;

Begin

Write('Nhap N='); Readln(N);

For i:=1 To N Do

Begin

Write('A[',i,']='); Readln(A[i]);

End;

Max:=A[1];

For i:=2 To N Do

If Max<A[i] Then Max:=A[i];

Writeln('Phan tu lon nhat cua mang:', Max);

Readln;

End.

Đúng(0)

H

hoho209

18 tháng 3 2021

1/Viết chương trình nhập vào một mảng số nguyên sắp xếp lại mảng đó theo thứ tự giảm dần

2/ Viết chương trình cho phép nhập vào 1 mảng gồm N phần tử, cho biết số nhỏ nhất trong các số vừa nhập là số thứ mấy

giúp em với ak

#Tin học lớp 8

2

NL

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

18 tháng 3 2021

Bài 1:

uses crt;

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

i,n,tam,j: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-1 do

for j:=i+1 to n do

if a[i]<a[j] then

begin

tam:=a[i];

a[i]:=a[j];

a[j]:=tam;

end;

for i:=1 to n do

write(a[i]:4);

readln;

end.

Đúng(3)

H

hoho209

19 tháng 3 2021

Làm giúp em câu 2 với ạ

Đúng(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ố đó

#Tin học lớp 8

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.

Đúng(0)

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.

Đúng(0)

KK

Ken Kaneki

20 tháng 8 2021

Viết chương trình nhập vào một mảng nguyên, gồm n phần tử nhập từ bàn phím, hiển thị mảng đã nhập ra màn hình, tính tổng mảng.

#Tin học lớp 11

1

NL

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

21 tháng 8 2021

uses crt;

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

i,n,t:integer;

begin

clrscr;

readln(n);

for i:=1 to n do

begin

readln(a[i]);

end;

for i:=1 to n do

write(a[i]:4);

readln;

t:=0;

for i:=1 to n do

t:=t+a[i];

writeln(t);

readln;

end.

Đúng(2)

BN

Bin Nguyễn

30 tháng 1 2023

Viết chương trình nhập vào một mảng gồm n phần tử (n<=10). In mảng vừa nhập ra màn hình.

#Tin học lớp 11

1

NL

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

30 tháng 1 2023

uses crt;

var n,i:integer;

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

begin

clrscr;

readln(n);

for i:=1 to n do

readln(a[i]);

for i:=1 to n do

write(a[i]:4);

readln;

end,

Đúng(2)

HU

Huynh Uyen

25 tháng 4 2023

Viết chương trình nhập vào một mảng N số nguyên. Hãy in ra mảng ngược chiều với mảng vừa nhập và mảng chỉ chứa các số chẵn

#Tin học lớp 8

1

ML

Minh Lệ

25 tháng 4 2023

Program HOC24;

var 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;

for i:=n downto 1 do if a[i] mod 2=0 then write(a[i],' ');

readln

end.

Đúng(1)

AA

An An Nguyễn

23 tháng 4 2022

5. Viết chương trình a. Viết chương trình nhập và in ra 1 mảng gôm 40 phần tử kiểu số nguyên b. Viết chương trình nhập vào 1 mảng n số thực và in ra mảng đó ( với n là sô nguyên được nhập từ bàn phím và 0

#Tin học lớp 8

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