Program HOC24;

var x,d,i,n: integer;

a: array[1..32000] of integer;

begin

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

for i:=1 to n do

begin

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

end;

write('nhap x : '); readln(x);

d:=0;

for i:=1 to n do if x>a[i] then d:=d+1;

writeln('Co ',d,' phan tu nho hon ',x);

write('Cac phan tu do la : ');

for i:=1 to n do if a[i]<x then write(a[i],' ');

readln

end.

Var <biến mảng>: array[<chỉ số đầu>..<chỉ số cuối>] of <kiểu dữ liệu>;

uses crt;
var n,i:integer;
kq,x: real;
begin
clrscr;
write('Nhap N: ');readln(n);
i:= 0; kq:= 0;
while i < n do
begin
i:= i + 1;
write('Nhap X ',i,': ');
readln(x);
kq:= kq + x;
end;
write('Trung binh ',n,' so thuc la: ',kq / n:0:2);
readln
end.

program Tong;

uses crt;

var i, n, S: integer;

begin

clrscr;

S:=0; i:=10;

while i<=50 do begin S:=S+i; i:=i+1 end;

writeln('Tong so cac so tu nhien tu 10 den 50 la', S);

readln

end.

Please upvote for me!

bài 1

if <điều kiện> then <câu lệnh>;

if <điều kiện> then <câu lệnh1> else <câu lênh 2>;

for <biến đềm>:=<giá trị đầu> to <giá trị cuối> do <câu lệnh>;

while <điều kiện> do <câu lệnh>;

bài 2

a)xuất giá tri biến c;

b) xuất chử c ra màn hình

c)xuất tong 5+7 ra màn hình tức 12;

d) xuất 5+7 ra màn hình;

e)Khai báo biến i và k thuộc kiểu số thực;

bài 3

C[1]+C[2]=150 0 0 11

bài 4 Nhờ ban khác nhé

thank you

Dễ thôi:

program I_challenge_all;

uses crt;

begin

writeln('Ho va ten');

writeln('So dien thoai');

writeln('Email & Dia chi');

readln

end.

Please upvote for me!

program ....(tên bạn đặt cho chương trình);
uses crt;
begin
clrscr;
writeln (' ten của bạn ');
writeln (' sdt của bạn ');
writeln (' email của bạn');
writeln (' địa chỉ ');
readln
end.

Cảm ơn đã giúp <3