1. Viết CT nhập vào 1 dãy số nguyên có N phần tử (N=150). In ra màn hình và ghi ra tệp D:\SO_CHAN.TXT các phần tử là số chẵn.2.Viết CT nhập vào họ và tên của một người bằng chữ in thường. In ra màn hì...

0

MY

Minasua Yagami

17 tháng 6 2021

Bài 2. Viết CT nhập vào một mảng n số. In ra màn hình các giá trị tổng, tích các phần tử của dãy. Đếm số lượng các số chẵn và lẻ trong dãy.

Viết chương trình nhập dãy số nguyên A gồm N phần tử (N được nhập vào từ bàn phím (N<=150). a. In dãy số ra màn hình, mỗi phần tử cách nhau một ký tự trống. b. Tính tổng các phần tử chẵn và in kết quả ra màn...

1

TA

Trần Ái Linh

17 tháng 6 2021

program im_14424;

uses crt;

var A: array[1..9999999] of interger;

S,P : integer;

i,n: byte;

begin

clrscr;

S:=0;

P:=0;

for i:=1 to n do

begin

write('Nhap vao phan tu thu: ',i,);

readln(A[i]);

S:=S+A[i]

P:=P*A[i]

end;

writeln(S);

write(P);

readln;

end.

Đúng(1)

HP

hà phương

8 tháng 5 2023

Đọc tiếp

1

NH

Nguyễn Hoàng Tiến

29 tháng 7 2023

đitf

K

k_o_t_en

8 tháng 5 2023

Viết chương trình nhập dãy số nguyên A gồm N phần tử (N được nhập vào từ bàn phím (N<=150).

a. In dãy số ra màn hình, mỗi phần tử cách nhau một ký tự trống.

b. Tính tổng các phần tử chẵn và in kết quả ra màn hình.

1

PS

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

8 tháng 5 2023

program BaiTap;

var

A: array[1..150] of integer;

N, i, sum: integer;

begin

write('Nhap so phan tu cua day A (N <= 150): ');

readln(N);

for i := 1 to N do

begin

write('Nhap phan tu thu ', i, ': ');

readln(A[i]);

end;

writeln('Day so vua nhap la:');

for i := 1 to N do

write(A[i], ' ');

writeln;

sum := 0;

for i := 1 to N do

if A[i] mod 2 = 0 then

sum := sum + A[i];

writeln('Tong cac phan tu chan trong day la: ', sum);

readln;

end.

Đúng(2)

K

k_o_t_en

8 tháng 5 2023

cảm ơn bạn ạ

TK

Trung Kien

17 tháng 3 2021

2. Viết CT nhập vào dãy số nguyên có n phần tử. In ra vị trí các phần tử âm.
3. Viết CT nhập vào dãy số tự nhiên có n phần tử. In ra giá trị các phần tử ở vị trí lẻ.
4. Tìm phần tử lớn nhất và nhỏ nhất trong 1 dãy phần tử.

3

NL

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

17 tháng 3 2021

2:

uses crt;

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

n,i: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

if a[i]<0 then write(i:4);

readln;

end.

Đúng(1)

TK

Trung Kien

17 tháng 3 2021

câu 3 nữa bạn, mình ko hiểu đc câu đó

T

Trang

9 tháng 5 2022

Viết ct nhập giá trị cho một dãy số nguyên có n phần tử a. In dãy vừa nhập b. Tính tổng các số trong dãy in kết quả nhận được ra màn hình

1

NL

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

10 tháng 5 2022

#include <bits/stdc++.h>

using namespace std;

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

int main()

{

cin>>n;

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

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

cout<<endl;

t=0;

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

cout<<t;

return 0;

}

1 Hãy viết chương trình nhập vào một dãy số ,in ra màn hình các số chẵn có trong dãy số ,với độ dài dãy số được nhập vào từ bàn phím 2 Hãy viết chương trình nhập vào một dãy số , in ra màn hình trung bình cộng của các phần tử trong dãy số với độ dài...

HN

Hiền Nguyễn

24 tháng 3 2021

2

HN

Hiền Nguyễn

24 tháng 3 2021

Bạn ơi giúp mình với chiều nay mình thi rồi

Đúng(1)

NL

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

24 tháng 3 2021

Câu 2:

uses crt;

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

i,n,tb:integer;

begin

clrscr;

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

for i:=1 to n do

begin

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

end;

tb:=0;

for i:=1 to n do

tb:=tb+a[i];

writeln(tb/n:4:2);

readln;

end.

N

NTKL

17 tháng 1 2022

Bài 1: Viết chương trình Nhập vào một dãy số gồm n phần tử, đếm và in ra kết quả trong dãy có bao nhiêu số chẵn. Bài 2: Viết chương trình nhập vào một xâu ký tự in ra màn hình độ dài của xâu.

2

NL

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

18 tháng 1 2022

Bài 2:

#include <bits/stdc++.h>

using namespace std;

string st;

int d;

int main()

{

getline(cin,st);

d=st.length();

cout<<d;

return 0;

}

KV

Kiều Vũ Linh

19 tháng 1 2022

Bài 1:

Var so,i,n,dem:integer;

Begin

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

For i:=1 to n do

Begin

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

If so mod 2 = 0 then dem:=dem+1;

End;

Write('Co ',dem,' so chan');

Readln;

End.

Bài 2:

Var st:string;

Begin

Write('Nhap vao xau ki tu ');readln(st);

Write(' Xau vua nhap co do dai la ',length(st));

Readln;

End.

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

B

Benny

7 tháng 3 2023

Đọc tiếp

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;

}

SC

Sói Channel

18 tháng 2 2023

Viết chương trình nhập vào dãy n số nguyên ( n < 150 ) hãy in ra màn hình dãy vừa nhập và tính tổng các phần tử lẻ của dãy