đau đầu quá!

dễ mà, chỉ là t ko làm dc k=1 tỷ thôi

Program HOC24;

Program HOC24;

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

i,n: integer;

begin

write('Nhap so phan tu cua mang: '); 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=1 then write(a[i],' '); writeln;

for i:=1 to n do if a[i] mod 2=0 then write(a[i],' '); writeln;

for i:=1 to n do if (a[i] mod 2=1) and (i mod 2=0) then write(a[i],' ');

readln

end.

uses crt;
var a:array[1..100]of longint;
i,n,t,t1,tam,j:integer;
s,s1:int64;
begin
clrscr;
repeat
write('nhap n='); readln(n);
until n>0;
for i:=1 to n do
begin
repeat
write('a[',i,']='); readln(a[i]);
until a[i]>=0;
end;
writeln('Mang A=');
for i:=1 to n do
write(a[i]:4);
writeln;
t:=0;
for i:=1 to n do
t:=t+a[i];
writeln('Tong gia tri cua mang A la: ',t);
s:=1;
for i:=1 to n do
s:=s*i;
writeln('Tich cac gia tri cua mang A la: ',s);
t1:=0;
for i:=1 to n do
if i mod 2=0 then t1:=t1+a[i];
writeln('Tong cac gia tri o vi tri chan la: ',t1);
s1:=1;
for i:=1 to n do
if i mod 2<>0 then s1:=s1*a[i];
writeln('Tich cac gia tri o vi tri le la: ',s1);
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i]>a[j] then
begin
tam:=a[i];
a[i]:=a[j];
a[j]:=tam;
end;
writeln('Mang A sau khi sap xep la: ');
for i:=1 to n do
write(a[i]:4);
writeln;
writeln('Cac phan tu co gia tri lon hon 10 la: ');
for i:=1 to n do
if a[i]>10 then write(a[i]:4);
readln;
end.

(1;4)    (3;4)    (5;4)

(1;6)    (3;6)     (5;6)

Q={1;4}    R={3;4}    C={5;4}    W={1;6}    F={3;6}   Z={5;6}

tich nha moi nguoi

program hoc24;

uses crt;

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

i,d,s: longint;

begin

clrscr;

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

s:=0;

for i:=1 to n do

if a[i]>0 then

begin

inc(d);

s:=s+a[i];

end;

writeln(d,s);

readln

end.

bài chưa chạy thử bạn chạy lại xem nếu k đc thì bảo

uses crt;

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

i,dem,t:integer;

begin

clrscr;

for i:=1 to 6 do 

  begin

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

end;

dem:=0;

t:=0;

for i:=1 to 6 do 

if a[i]>0 then 

begin

inc(dem);

t:=t+a[i];

end;

writeln('So phan tu duong la: ',dem);

writeln('Tong cac phan tu duong la: ',t);

readln;

end.

H={1;3;5};K={0;1;2;3;4;5}

a)M={0;2;4}

b)Vì các tập hợp của H đều có trong K nên \(H\subset K\)

c)mk thấy đề hơi kì, đã cho là có 4 phần tử rồi còn hỏi có ít nhất, nhiều nhất bao nhiêu phần tử

có 3 tập hợp G

làm sao viết được kí hiệu ''thuộc'' và ''tập'' con thế

Bài này trong TOÁN NÂNG CAO THCS mình cũng phải làm bài này luôn chẳng hiểu ý C kiểu gì luôn

​

tập hợp rỗng 

C = { 1;3 }

D={ 2 ;4 }

E = { 1;4 }

F = { 2;3 }

uses crt;

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

n,i:integer;

begin

clrscr;

repeat

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

if n<=0 then writeln('Ban nhap sai, yeu cau nhap lai');

until n>0;

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.

a, {a}; {b}; {c} ; {d}

{a;b}; {a;c}; {a;d}; {b;c}; {b;d}; {c;d}

{a;b;c}; {a;b;d}; {a;c;d}; {b;c;d}

b, Số tập con: 2⁴= 16(tập con)