: Viết chương trình nhập vào một dãy số A gồm N số nguyên a1, a2,…,an (n

0

DD

ĐOÀN ĐỨC ANH

4 tháng 5 2022

viết chương trình nhập vào dãy A gồm n số nguyên A1 , A2 ...An . (n<=100) đưa ra màn dãy B gồm các phần tử là số chẵn trong dãy A

1

DD

ĐOÀN ĐỨC ANH

4 tháng 5 2022

giúp mình với

TN

Thế Nguyễn

10 tháng 5 2022

Viết chương trình nhập vào dãy số nguyên a1,a2....an (n

1

DT

Đỗ Tuệ Lâm

10 tháng 5 2022

THAM KHẢO:

undefined

Đúng(6)

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

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.

Z

zyyy

2 tháng 2 2021

vậy???

TL

Thùyy Linhh

29 tháng 4 2021

Viết chương trình nhập vào dãy số nguyên dương A1,A2,...An ( n

1

NL

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

29 tháng 4 2021

Đề bài yêu cầu gì vậy bạn?

DD

Đỗ Duy

19 tháng 5 2021

Viết chương trình nhập vào một dãy số gồm N phần tử từ A1, A2,…, An. Hãy đưa ra màn hình dãy số vừa nhập và số lượng các số chẵn trong dãy

1

DB

Dương Bảo Nguyên

3 tháng 4 2022

uses crt;
var A : array [1 .. 10] of integer;
i, n, d : integer;
begin
clrscr;
d := 0;
write('Nhap so luong phan tu : '); readln(n);
for i := 1 to n do
begin
write('Nhap so thu ', i ,' : ');
readln(A[i]);
if A[i] mod 2 = 0 then
d := d + 1;
end;
write('Cac phan tu vua nhap : ');
for i := 1 to n do write(A[i],' ');
writeln; write('Day co ', d ,' so chan ');
readln
end.

DD

Đỗ Duy

19 tháng 5 2021

Viết chương trình nhập vào một dãy số gồm N phần tử từ A1, A2,…, An. Hãy đưa ra màn hình dãy số vừa nhập và số lượng các số chẵn trong dãy

2

TN

Trịnh Ngọc Hân

19 tháng 5 2021

Program bt;

Uses crt;

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

n,i: integer;

Begin

Write( 'Moi 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( 'Cac so chan la',a[i]);

Readln;

End.

DB

Dương Bảo Nguyên

3 tháng 4 2022

uses crt;
var A : array [1 .. 10] of integer;
i, n, d : integer;
begin
clrscr;
d := 0;
write('Nhap so luong phan tu : '); readln(n);
for i := 1 to n do
begin
write('Nhap so thu ', i ,' : ');
readln(A[i]);
if A[i] mod 2 = 0 then
d := d + 1;
end;
write('Cac phan tu vua nhap : ');
for i := 1 to n do write(A[i],' ');
writeln; write('Day co ', d ,' so chan ');
readln
end.

Viết chương trình nhập từ bàn phím số nguyên dương N,N <=100 và dãy A gồm N số nguyên A1,A2,...An. xuất ra màng hình tổng các số nguyên trong dãy A theo yêu cầu sau1 : viết các thủ tục nhập / xuất mảng A2 : Viết các hàm tính tổng các số nguyên tromg dãu A, tổng số chẵn, tổng số lẻ trong dãy...

TN

Thanh Nhi Phạm

23 tháng 4 2021

Đọc tiếp

1

NL

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

23 tháng 4 2021

Mình chỉ viết chương trình chính thôi, còn chương trình con bạn tự viết nhé

uses crt;

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

i,n,t,t1,t2:integer;

begin

clrscr;

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

for i:=1 to n do

begin

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

edn;

t:=0;

for i:=1 to n do

t:=t+a[i];

writeln(t);

readln;

end.

Viết chương trình nhập vào dãy số gồm có N phần tử a1, a2, a3,…,an (N<=100). Các phần tử của dãy số là các số nguyên (với n là số nguyên dương được nhập vào từ bàn phím). Thực hiện các yêu cầu sau:.a. In ra màn hình giá trị của các phần tử vừa nhập Tính tổng các số vừa nhập và in kết quả ra màn...

NT

Ngọc Ty

24 tháng 4 2023

Đọc tiếp

#Tin học lớp 8

1

KV

Kiều Vũ Linh

24 tháng 4 2023

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

i,n:integer;

s:longint;

Begin

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

For i:=1 to n do

Begin

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

s:=s+a[i];

End;

Write('Cac phan tu vua nhap la ');

For i:=1 to n do

Write(a[i]:8);

Writeln;

Write('Tong cua chung la ',s);

Readln

End.

TT

Trưởng Thị Nguyệt Linh

4 tháng 5 2022

Viết chương trình nhập vào mảng 1 chiều gồm N số nguyên A1,A2...An (n

0

BK

Bé Kunz

21 tháng 3 2021

Cho dãy A gồm N số nguyên (N nhỏ hơn hoặc bằng 200) số nguyên A1,A2,...An. Hãy viết chương trình nhập mảng A vào từ bàn phím và đưa ra màn hình tổng các phần tử chia hết cho 5. Bài 2: Viết chương trình nhập 1 xâu vào từ bàn phím và đưa ra màn hình xâu không chứa dấu cách.

3

NL

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

21 tháng 3 2021

Bài 1:

uses crt;

var a:array[1..200]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 5=0 then t:=t+a[i];

writeln('Tong cac so chia het cho 5 la: ',t);

readln;

end.

NL

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

21 tháng 3 2021

Bài 2:

uses crt;

var st:string;

d,i:integer;

begin

clrscr;

write('Nhap xau:'); readln(st);

d:=length(st);

for i:=1 to d do

if st[i]=#32 then delete(st,i,1);

writeln(st);

readln;

end.