program b1;
uses crt;
var i,n: integer; a:array[1..100] of integer; p:longint;
begin
clrscr;
write('Nhap vao mot day so nguyen:'); readln(n);
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
p:=1;
for i:=1 to n do if a[i] mod 2<>0 then p:=p*a[i];
write('Tich cac so le=',p);
readln;
end.
Tham khảo!

uses crt;
var NS:array[1..100] of integer; Dtoan,Dvan,Dtb:array[1..100] of real;
hoten:array[1..100] of string; i:byte;
begin
clrscr;
for i:=1 to 45 do
begin
write('Nhap ten cua hoc sinh thu',i,':'); readln(hoten[i]);
write('Nhap ngay sinh:'); readln(NS[i]);
write('Nhap diem toan:'); readln(Dtoan[i]);
write ('Nhap diem van:'); readln(Dvan[i]);
Dtb[i]:=(Dtoan[i]+Dvan[i])/2;
end;
writeln('Diem trung binh cua cac ban trong lop la:');
for i:=1 to 45 do
writeln(hoten[i],':',Dtb[i]:1:2);
readln;
end.
Tham khảo thui!

phân tử j á bạn

uses crt;
var a:array[1..100] of integer; b,n,i:integer;
begin
clrscr;
write('Nhap so nguyen tu bn phim:',n);
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<>0 then inc(b);
write('Co ', b ,' so khong chia het cho 2');
readln;
end.
Tham khảo nha!

program b1;
uses crt;
var i: integer; a:array[1..100] of integer; s:longint;
begin
clrscr;
for i:=1 to 10 do
begin
write('a[',i,']='); readln(a[i]);
end;
writeln('cac phan tu chan la:');
s:=0;
for i:=1 to 10 do if a[i] mod 2=0 then writeln(a[i],' ');
write('Tong cac phan tu le la:');
for i:=1 to 10 do if a[i] mod 2<>0 then s:=s+a[i]; write(s);
readln;
end.

Tham khảo!

uses crt;
var b,c:real; a:array[1..100] of integer; s:real;
begin
clrscr;
write('Nhap vao diem hoc ki 1:');readln(b);
write('Nhap vao diem hoc ki 2:');readln(c);
s:=((b+c)*2)/3;
write('Diem ca nam=',s:2:2);
readln;
end.

Tham khảo típ!

uses crt;
var b,c:real; a:array[1..100] of integer; s:real;
begin
clrscr;
write('Nhap vao diem hoc ki 1:');readln(b);
write('Nhap vao diem hoc ki 2:');readln(c);
s:=((b+c)*2)/3;
write('Diem ca nam=',s:2:2);
readln;
end.

Tham khảo! Làm hơi ngắn

program b1;
uses crt;
var i,n: integer; a:array[1..100] of integer; s:real;
begin
clrscr;
write('Nhap vao so tu nhien n:'); readln(n);
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
s:=0;
for i:=1 to n do s:=s+a[i];  s:=s/n;
write('Trung binh cong cac so=',s:2:2);
readln;
end.

Tham khảo!