Giúp mk vs ạ cần gấp lắm rùi ii 1.Viết chương trình nhập từ bàn phím số nguyên dương N(N lớn hơn hoặc bằng 100)và dãy A gồm M số nguyên tử A1,A2...AN có giá trị tuyệt đối k lớn hơn 1000.hãy đưa ra xác thông tin sau a) Tổng các phần tử của mảng b) Số lượng số chẵn,số lẻ trong mả

lamhuynhxuanmy2001

2 năm trước

Giúp mk vs ạ cần gấp lắm rùi ii 1.Viết chương trình nhập từ bàn phím số nguyên dương N(N lớn hơn hoặc bằng 100)và dãy A gồm M số nguyên tử A1,A2...AN có giá trị tuyệt đối k lớn hơn 1000.hãy đưa ra xác thông tin sau a) Tổng các phần tử của mảng b) Số lượng số chẵn,số lẻ trong mảng 2. Viết chương trình nhập vào từ bản phím 1 xâu và thông báo ra màn hình số lần xuất hiện của mỗi chữ cái tiếng Anh trong xâu S (k phân biệt chiếc thường, chữ hoa)

Loga Sinh Học lớp 12

0 lượt thích 21 xem

1 trả lời

Thích Trả lời

muathuvang0477

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

begin

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

for i:=1 to n do

begin

write('a[',i,']:');

readln(a[i]);

end;

write('mang vua nhap la');

for i:=1 to n do write ([i]:5);

writeln;

s:=0;

begin

if a[i]<0 to n do write s:=s+a[i];

end;

writeln('s=',s);

for i:=1 to n do

if (i mod 2=0) then inc(t);

for i:=1 to n do

if (i mod 2=1) then inc(d);

write('cac so chan la',t,');

write('cac so le la',d,');

readln;

end.

mk làm được có bài 1 thui ak sr nha

Vote (0) Phản hồi (0) 2 năm trước

lamhong12345

`1)`

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

begin

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

for i:=1 to n do

begin

write('a[',i,']:');

readln(a[i]);

end;

write('mang vua nhap la');

for i:=1 to n do write ([i]:5);

writeln;

s:=0;

begin

if a[i]<0 to n do write s:=s+a[i];

end;

writeln('s=',s);

for i:=1 to n do

if (i mod 2=0) then inc(t);

for i:=1 to n do

if (i mod 2=1) then inc(d);

write('cac so chan la',t,');

write('cac so le la',d,');

readln;

end.

`2)`

var st,s:string;

i,d,dem,kt,j,dem1:integer;

begin

clrscr;

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

writeln('Xau vua nhap la: ',s);

d:=length(s);

for i:=1 to d do

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

dem:=1;

st[1]:=s[1];

for i:=1 to d do

begin

kt:=0;

for j:=1 to dem do

if s[i]=st[j] then kt:=1;

if kt=0 then

begin

inc(dem);

st[dem]:=s[i];

end;

for i:=1 to dem do

begin

dem1:=0;

for j:=1 to d do

if st[i]=s[j] then inc(dem1);

writeln(st[i],' xuat hien ',dem1,' lan');

end;

readln;

end.

Vote (0) Phản hồi (0) 2 năm trước

Các câu hỏi liên quan

bạn nào có thể gửi cho mình tranh vẽ ngôi nhà tương lai ko

A cake is 5.000d( đặt câu hỏi cho từ gạch chân ) số 5 .000d là từ gạch chân nha mọi người

Giải giúpp em với ạ đề 1 tiết =(( mà dài quáaa

mot hinh chu nhat co chu vi 336m , chieu rong bang 1/3 chieu dai . Tinh dien tich san truong

giúp mình với mai thi rùi hu hu

cho mik xin một số bài nghe bàng tiếng anh vs(vd:ket,...)càng nhiều càng tốt

Vẽ sơ đồ nguyên lý của mạch điện chiếu sáng gồm 2 cầu chì, 2 công tắc 2 cực điều khiển độc lập 2 bóng đèn mắc song song?

Viết 1 đoạn văn tiếng anh ngắn ( 5-6 dòng )về lợi ích của việc học Tiếng Anh ( the advantage of learning English ) Tự làm Không sao chép mạng ω

Vai trò của gan trong quá trình tiêu hoá và hấp thụ thức ăn? Vì sao người bị bệnh gan không nên ăn mỡ động vật?

Câu 1: Một người để một vật ở độ cao h so với mặt đất. a) Hỏi lúc này vật có cơ năng hay không? b) Khi người đó thả vật đó từ độ cao h xuống thì vật có những dạng năng lượng nào?

Loga.vn - Cộng Đồng Luyện Thi Trực Tuyến