Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lờ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.
Program HOC24;
var i,n,k: integer;
a: array[1..20] of integer;
begin
write('Nhap n: '); readln(n);
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
write('Nhap k='); readln(k);
write('Vi tri cac phan tu co gia tri bang ',k,': ');
for i:=1 to n do if a[i]=k then write(i,' ');
writeln;
for i:=1 to n do if a[i]=k then a[i]:=-k;
write('Mang sau khi thay the la: ');
for i:=1 to n do write(a[i],' ');
readln
end.
Program BTT;
Uses crt;
Var A: array[1..100] of qword;
i,d: byte;
Begin
Clrscr;
d:=0;
For i:=1 to 100 do
Begin
Write('A[',i,'] = ');
Readln(A[i]);
If A[i] mod 2 = 0 then inc(d);
End;
Write('Mang vua nhap: ');
For i:=1 to 100 do Write(A[i],' ');
Writeln;
Write('Co ',d,' so chan');
Readln
End.
uses crt;
var s:string;
i,d:integer;
begin
clrscr;
write('Nhap xau S:'); readln(s);
d:=length(s);
for i:=1 to d do
s[i]:=upcase(s[i]);
writeln(s);
readln;
end.
uses crt;
var i:integer;
begin
clrscr;
writeln('Bang cuu chuong 3 la: ');
for i:=1 to 10 do
writeln('3*',i,'=',3*i);
readln;
end.