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
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)
Lời giải 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.
mk làm được có bài 1 thui ak sr nha
Thảo luận
Lời giải 2 :
`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;
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.
Có thể bạn quan tâm
Bạn có biết?
Tin học, tiếng Anh: informatics, tiếng Pháp: informatique, là một ngành khoa học chuyên nghiên cứu quá trình tự động hóa việc tổ chức, lưu trữ, xử lý và truyền dẫn thông tin của một hệ thống máy tính cụ thể hoặc trừu tượng (ảo). Với cách hiểu hiện nay, tin học bao hàm tất cả các nghiên cứu và kỹ thuật có liên quan đến việc mô phỏng, biến đổi và tái tạo thông tin.
Nguồn : Wikipedia - Bách khoa toàn thưTâm sự 11
Lớp 11 - Năm thứ hai ở cấp trung học phổ thông, gần đến năm cuối cấp nên học tập là nhiệm vụ quan trọng nhất. Nghe nhiều đến định hướng sau này rồi học đại học. Ôi nhiều lúc thật là sợ, hoang mang nhưng các em hãy tự tin và tìm dần điều mà mình muốn là trong tương lai nhé!
Nguồn : ADMIN :))Copyright © 2021 HOCTAP247