Viết chương trình nhập vào một dãy số nguyên a gồm có k phần tử (0

GB

Gia Bảo Lê

13 tháng 10 2021

Viết chương trình nhập vào một dãy số nguyên a gồm có k phần tử (0 <= k <=100), viết đoạn chương trình xử lý các công việc: a. Tìm và in ra số lớn nhất, số bé nhất trong dãy a, vị trí của các số này. b. Đọc một số x từ bàn phím (0 <= x <= 500), chèn x vào dãy sao cho thứ tự dãy không đổi, in dãy sau khi chèn và vị trí đã chèn x vào...

Đọc tiếp

#Tin học lớp 8

0

DN

Đỗ Nguyễn Thùy Lâm

4 tháng 5 2023

a) Viết chương trình nhập vào một dãy số nguyên gồm k phần tử, giá trị của từng phần tử cũng nhập vào từ bàn phím. Sau đó tính tích của các số nhỏ hơn 30 có trong dãy số đã nhậpb) Viết chương trình nhập vào một dãy số nguyên gồm n phần tử, giá trị của từng phần tử cũng nhập vào từ bàn phím. Sau đó tính tổng các số nhỏ hơn 100 có trong dãy số đã...

Đọc tiếp

#Tin học lớp 8

1

KV

Kiều Vũ Linh

5 tháng 5 2023

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

i,k:integer;

p:longint;

begin

write('k = ');readln(k);

p:=1;

for i:=1 to k do

begin

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

if a[i]<30 then p:=p*a[i];

end;

write('Tich la ',p);

readln

end.

b)

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

i,k:integer;

s:longint;

begin

write('k = ');readln(k);

for i:=1 to k do

begin

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

if a[i]<100 then s:=s+a[i];

end;

write('Tong la ',s);

readln

end.

Đúng(0)

MP

Mai Phương Lê

4 tháng 5 2021

1 Nhập dãy số nguyên gồm n phần tử viết chương trình in ra những số có giá trị lẻ 2 nhập vào dãy số nguyên gồm n phần tử viết chương trình tính tổng các số chẵn có trong mảng 3 nhập vào dãy số nguyên gồm n phần tử viết chương trình tính tổng các số lẻ có trong mảng

#Tin học lớp 8

3

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: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] mod 2<>0 then write(a[i]:4);

readln;

end.

Đúng(1)

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: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] mod 2=0 then write(a[i]:4);

readln;

end.

Đúng(1)

V

Vochehoang

13 tháng 4 2021

Viết chương trình nhập vào một số nguyên gồm n phần tử. Tính tổng của các phần tử của các dãy số đó.Viết chương trình nhập vào một mảng số nguyên gồm n phần tử . Nhập vào một số nguyên x bất kì a) Kiểm tra x có trong dãy hay ko hiển thị vị trí của x b) Đếm xem x xuất hiện bao nhiêu lầnMọi người giúp vs , cần gấp...

Đọc tiếp

#Tin học lớp 8

2

NL

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

13 tháng 4 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(t);

readln;

end.

Đúng(1)

NL

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

13 tháng 4 2021

Câu 2:

uses crt;

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

i,n,x,dem,kt:integer;

begin

clrscr;

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

for i:=1 to n do

begin

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

end;

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

kt:=0;

dem:=0;

for i:=1 to n do

if a[i]=x then

begin

kt:=1;

write(i:4);

inc(dem);

end;

if kt=0 then writeln('Khong co ',x,' trong day');

writeln(x,' xuat hien ',dem,' lan trong day');

readln;

end.

Đúng(1)

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)

NL

Nguyễn Lê

19 tháng 2 2023

Bt1: viết chương trình nhập vào 1 dãy số nguyên có N phần tử(N<=150). Đếm xem có bao nhiêu phần tử là bội của 3 và 5. Tính tổng các phần tử đó.Bt2: viết chương trình nhập vào 1 dãy số nguyên có N phần tử (N<=150) và một số nguyên K tùy ý. Đếm xem có bao nhiêu phần tử bằng với K. In ra chỉ số các phần tử đó.Giúp mik 2 bài này trong tối nay vs ạ...

Đọc tiếp

#Tin học lớp 11

3

ML

Minh Lệ

19 tháng 2 2023

Bài 1:

Program HOC24;

var i,n,d : byte;

t: integer;

begin

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

for i:=1 to n do

begin

write('Nhap phan tu thu ',i,' : '); readln(a[i]);

end;

for i:=1 to n do if (a[i] mod 3=0) and (a[i] mod 5=0) then

begin

d:=d+1;

t:=t+a[i];

end;

writeln('Co ',d,' phan tu la boi cua 3 va 5');

write('Tong la: ',t);

readln

end.

Đúng(2)

ML

Minh Lệ

19 tháng 2 2023

Bài 2:

Program HOC24;

var i,n,k : byte;

begin

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

for i:=1 to n do

begin

write('Nhap phan tu thu ',i,' : '); readln(a[i]);

end;

write('Nhap k: '); readln(k);

for i:=1 to n do if a[i]=k then d:=d+1;

writeln('Co ',d,' phan tu bang ',k);

Write('Cac chi so do la: ');

for i:=1 to n do if a[i]=k then write(i,' ');

readln

end.

Đúng(2)

DT

Dương Thành Long

24 tháng 2 2022

viết chương trình nhập vào số nguyên dương n, n <= 100 và dãy a gồm n số nguyên . Đếm xem có bao nhiêu phần tử có giá trị bằng số nguyên k

#Tin học lớp 11

1

DT

Đỗ Tuệ Lâm

24 tháng 2 2022

bạn tham khảo:

undefined

Đúng(1)

HP

hoàng phúc nguyễn

22 tháng 2 2022

câu 1 : viết chương trình để:-Nhập một dãy các số nguyên gồm N phần tử ( ko quá 60 kí tự);-Nhập 1 số nguyên K từ bàn phím;-Thông báo ra màn hình số lượng các phần tử trong dãy bằng KCâu 2: viết chương trình để :-Nhập một xâu A ( không quá 130 kí tự ) từ bàn phím ;-Tạo xâu mới B gồm các kí tự trong xâu A nhưng không có kí tự đầu và cuối ;- In kết quả các xâu trên ra màn hình .mọi người giúp em với ạ . em đang...

Đọc tiếp

#Tin học lớp 11

1

NL

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

22 tháng 2 2022

Câu 1:

#include <bits/stdc++.h>

using namespace std;

long long i,n,k,dem,x;

int main()

{

cin>>n;

cin>>k;

dem=0;

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

{

cin>>x;

if (x==k) dem++;

}

cout<<dem;

return 0;

}

Đúng(1)

TS

Thanh sang

17 tháng 4 2023

Viết chương trình nhập vào dãy số A gồm N số nguyên (N<=100), và số nguyên K. Kiểm tra xem có bao nhiêu phần tử có giá trị lớn hơn K?

Giúp mk vs

#Tin học lớp 11

3

NL

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

17 tháng 4 2023

uses crt;

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

i,n,k,dem:integer;

begin

clrscr;

readln(n);

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

readln(k);

dem:=0;

for i:=1 to n do

if a[i]>k then inc(dem);

write(dem);

readln;

end.

Đúng(2)

NB

Ngô Bá Hùng

17 tháng 4 2023

python hay pascal

Đúng(1)

F

fyujg

2 tháng 2 2021

Viết chương trình nhập vào số nguyên dương N và dãy gồm N số nguyên A1,A2,...,AN và số nguyên k.Đếm xem trong dãy có bao nhiêu phần tử có giá trị bằng k

#Tin học lớp 11

1

NL

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

2 tháng 2 2021

uses crt;

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

i,n,dem,k:integer;

begin

clrscr;

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

for i:=1 to n do

begin

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

end;

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

dem:=0;

for i:=1 to n do

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

writeln('Trong day co ',dem,' phan tu co gia tri bang ',k);

readln;

end.

Đúng(1)

Z

zyyy

2 tháng 2 2021

vậy???

Đú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