uses crt;
var a:array[1..100]of integer;
i,n,t,dem:integer;
tbc:real;
begin
clrscr;
write('nhap do dai cua day:'); readln(n);
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
{-----------xuat---------------}
for i:=1 to n do
write(a[i]:4);
{----------xu-ly---------------}
writeln;
t:=0;
dem:=0;
for i:=1 to n do
if a[i]>5 then
begin
dem:=dem+1;
t:=t+a[i];
end;
tbc:=t/dem;
writeln('trung binh cua cac so lon hon 5 la: ',tbc:4:2);
readln;
end.

Sao ko có các bước làm

thuật toán lớp mà ạ

1: xác định bài toán

input:

- số nguyên n

- dãy A gồm n số

output:

xuất các số nguyên dương và tìm vị trí của chúng trong dãy A

2: Mô tả thuật toán

-bước 1: chúng ta cho for i chạy từ 1 tới n

-bước 2: nếu a[i]>0 thì xuất a[i] ra và đưa vị trí i của chúng vào trong 1 dãy array B . sau đó xuất vị trí thì for i chạy từ 1 tới chiều dài của B và xuất B[i]:4

-bước 3: kết thúc chương trình

3: Viết chương trình

uses crt;
var a,b:array[1..100]of integer;
i,n,dem:integer;
begin
clrscr;
write('nhap do dai cua day:'); readln(n);
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
{-----------xuat---------------}
for i:=1 to n do
write(a[i]:4);
{----------xu-ly---------------}
writeln;
dem:=0;
writeln('cac so nguyen duong co trong day A la: ');
for i:=1 to n do
if a[i]>0 then
begin
write(a[i]:4);
inc(dem);
b[dem]:=i;
end;
writeln;
writeln('vi tri cua cac so nguyen duong trong day A la: ');
for i:=1 to dem do
write(b[i]:4);
readln;
end.

Program hotrotinhoc;

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

i,n,j,tg,k,t: integer;

begin

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

for i:=1 to n do

begin

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

end;

write('k='); readln(k);

for i:=1 to n do

for j:=i to n do

if a[i]>a[j] then

begin

tg:=a[i];

a[i]:=a[j];

a[j]:=tg;

end;

writeln('Day sap xep theo thu tu tang dan la :');

for i:=1 to n do

begin

write(a[i],' ');

if a[i]<k then t:=i;

end;

writeln('Day sau khi chen k : ');

for i:=1 to n do

if (a[i]<k) and (t=i) then write(a[i],' ',k,' ') else write(a[i],' ');

readln

end.

uses crt;
var a:array[1..100]of integer;
k,n,i,tam,x,t:integer;
begin
clrscr;
write('nhap so phan tu:'); readln(n);
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
{-----------------------------------------------------}
for i:=1 to n do write(a[i],' ');
{----------------------------------------------------------------}
writeln;
writeln('day tang dan la:');
for i:=1 to n-1 do
for k:=i+1 to n do
if a[i]>a[k] then begin
t:=a[i];
a[i]:=a[k];
a[k]:=t;
end;
for i:=1 to n do write(a[i],' ');
writeln;
{--------------------------------------------}
write('nhap gia tri x:'); readln(x);
i:=1;
while(x>a[i]) and (i<=n) do
i:=i+1;
for k:=n+1 downto i do
a[k]:=a[k-1];
a[i]:=x;
writeln('mang da chen x:');
for i:=1 to n+1 do write(a[i],' ');
readln;
end.

program hotrotinhoc;

var s,st: string;

d: integer;

begin

write('Nhap xau : '); readln(s);

write('Nhap tu : '); readln(st);

d:=0;

while pos(st,s)<>0 do

begin

inc(d);

delete(s,pos(st,s),1);

end;

write(d);

readln

end.

uses crt;
var st:string;
d,i,dem:integer;
ktu:char;
begin
clrscr;
write('nhap xau:'); readln(st);
write('nhap tu can kiem tra:'); readln(ktu);
d:=length(st);
dem:=0;
for i:=1 to d do
if ktu=st[i] then inc(dem);
writeln(ktu,' xuat hien trong xau ',st,' ',dem,' lan');
readln;
end.

Program hotrotinhoc;

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

d,i,n: integer;

function snt(x: integer): boolean;

var j: integer;

begin

snt:=false;

if x<2 then exit;

for j:=2 to trunc(sqrt(x)) do

if x mod j=0 then exit;

snt:=true;

end;

begin

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

for i:=1 to n do

begin

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

end;

d:=0;

for i:=1 to n do

if nt(a[i]) then inc(d);

write('So luong so nguyen to trong day la : ',d);

readln

end.

progran baitap6_chuong4;
uses crt;
var
array[1..100] of integer;
if: boolean;
N, i„ l: integer; so_nt, so_chan: integer;
begin
for i := -1000 to 1000 do if i>0 then NT:= false;
so_chan:=0; so_nt:=0;
{Nhap vao)

repeat

write('So phan tu cua day A (N<=100), N= *);

readln(N);

until (N>0) and

(N<=100);

for i:= 1 to N do

begin

{kiem tra cac phan tu cua day khi nhap vao}
repeat
write('A[',i,']= ');readln(A[i]);
if (a[i]>1000) or (a[i]<-1000) then
write('Moi nhap lai ");
until (a[i]>-1000) and (a[i]<1000); = if A[i] mod 2 =0 then so_chan:= so_chan + 1; if A[i] >1 then
begin
u: = 2 ;
while ((u<=sqrt (A[i])) and (A[i] mod u<>0))) do u: = u + 1; if u>sqrt(A[i]) then so_nt:= so_nt + 1;
end,

B1: Nhập N

B2: S←0; i←1;

B3: Nếu i>100 thì đưa ra S rồi kết thúc

B4: S←S+i;

B4: i←i+1 rồi quay lại bước 3

Ai giúp mình với mai mình kt rồi