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)
2 câu trả lời
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
`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.
