uses crt;
var a,b:array[1..100]of integer;
n,i,dem,max,tam,j:integer;
begin
clrscr;
repeat
write('Nhap n='); readln(n);
until (0<n) and (n<=100);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
writeln('Cac so chia het cho 4 la: ');
for i:=1 to n do
if a[i] mod 4=0 then write(a[i]:4);
writeln;
dem:=0;
for i:=1 to n do
if a[i] mod 7=0 then
begin
inc(dem);
b[dem]:=a[i];
end;
max:=b[1];
for i:=1 to dem do
if max<b[i] then max:=b[i];
writeln('So lon nhat chia het cho 7 la: ',max);
writeln('Cac chi so cua no trong day A la: ');
for i:=1 to n do
if max=a[i] then write(i:4);
writeln;
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('Day so sau khi sap xep giam dan la: ');
for i:=1 to n do
write(a[i]:4);
readln;
end.

uses crt;
var j,tg,s,max,min,i,n:longint;
a:array[1..19] of longint;
s1:real;
begin
clrscr;
write('Nhap n: '); readln(n);
for i:=1 to n do
begin
write('a[',i,']=');readln(a[i]);
end;
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i]>a[j] then
begin
tg:=a[i];
a[i]:=a[j];
a[j]:=tg;
end;
for i:=1 to n do
write(a[i],' ');writeln;
for i:=1 to n do
s:=s+a[i];
s1:=s/n;
writeln(‘Gia tri trung binh cua cac phan tu la: ‘,s1:0:0);
min:=a[1];max:=a[1];
for i:=2 to n do begin
if a[i]>max then max:=a[i];
if a[i]<min then min:=a[i];
write('Phan tu lon nhat la: ',max,' ','Phan tu nho nhat la: ',min); writeln;
for i:=1 to n do
if (a[i]<>0) and (a[i] mod 2=0) then write(a[i],' ');
readln
end.

uses crt;

var n,i:integer;

begin

clrscr;

repeat

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

until n>0;

write('Cac so chan trong khoang tu 1 toi ',n,' la: ');

for i:=1 to n do

if i mod 2=0 then write(i:4);

readln;

end.

giup mik vs mik dg can gap.

program so_tu_nhien_chan;

uses crt;
var n,i:integer;
begin
clrscr;
write('Nhap n='); readln(n);
write('Cac so chan nho hon hoac bang ',n,' la: ');
for i:=2 to n do
if i mod 2=0 then write(i:4,' ;');
readln;
end.

mặt trời mới mọc như lòng đỏ trứng gà.Chị gió đi dạo quanh công viên .Những chiếc cây đung đưng theo gió "xì xào" như đang nói truyện .Những chú chim trên cành cây hót líu lo.Buổi sáng ở thành phố thật đẹp.

Còn thiếu thì bạn tự bổ xung nha mình nghĩ nhanh được thế này thôi.Nếu được cho mình một tích nha!

câu đầu có sd BP tu từ nha!mình quên

Giờ ra chơi, trường ồn như vỡ chợ. Vài nhóm nữ sinh tụ tập dưới tán lá mát rượi của cụ bàng; từng cặp từng cặp bạn nam chơi đá cầu với nhau, trên vai ai nấy đều ướt đẫm ánh nắng; một đám học sinh khác lại ùa đến căn-tin ăn quà vặt;... Cảnh vui tươi, nhộn nhịp đó khó có người học trò nào quên được. Bởi sau mỗi giờ ra chơi lại khiến chúng tôi thấy tinh thần sáng khoái hơn, tràn trề sức lực để học tập tốt hơn.
*lại: phó từ chỉ sự tiếp diễn tương tự.
*ồn như vỡ chợ: so sánh
*cụ bàng: nhân hóa kiểu dùng những từ vốn dùng để gọi người để gọi sự vật.
*ướt đẫm ánh nắng: ẩn dụ chuyển đổi cảm giác. (thị->xúc)
*trường: hoán dụ kiểu lấy vật chứa đựng để gọi vật bị chứa đựng.

👊👅😎

Jhg

Bạn ơi phải viết bằng ngôn ngữ lập trình gì vậy.

uses crt;

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

i,n,t:integer;

begin

clrscr;

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

if (n>0) and (n<=100) then

begin

t:=0;

for i:=1 to n do

begin

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

if (a[i] mod 2=0) or (a[i] mod 2=1) then t:=t+a[i];

end;

writeln('tong cac phan tu chan hoac le trong day la: ',t);

end

else writeln('vui long nhap lai');

readln;

end.

uses crt;

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

i,t:integer;

begin

clrscr;

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

t:=0;

for i:=1 to 10 do t:=t+a[i];

writeln(t);

readln;

end.

var i,s,n: integer;

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

begin

readln(n);

for i:=1 to n do begin readln(a[i]); s:=s+a[i]; end;

write(s);

readln

end.