Bài 9. Làm việc với dãy số - Hỏi đáp

Câu hỏi của I LOVE BTS - Tin học lớp 8 | Học trực tuyến

Uses crt;
Var St,St1,x:string;
i,j,k,l:longint;
Begin
readln(St);
For i:=1 to length(St) do
If (St[i] in ['a'..'z']) then If not (St[i-1] in ['0'..'9']) then Insert('1',St,i);
For i:=1 to length(St) do
Begin
If St[i] in ['0'..'9'] then
For j:=i+1 to length(St) do
If St[j] in ['a'..'z'] then break;
x:=copy(St,i,j-i);
Val(x,k);
For l:=1 to k do
St1:=St1+St[j];
end;
Write(St1);
readln;
end.

Bài 2:
uses crt;
​Var a:array[1..100000] of longint;
i,n,max,min:longint;
s: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 do begin
s:=s+a[i];
if a[i]>max then max:=a[i];
if a[i]<min then min:=a[i]; end;
s:=s/n;
write('So lon nhat la: ',max,' So nho nhat la: ',min); writeln;
write('Gia tri trung binh la: ',s:0:1);
readln
end.

Program tinh_tong_N_so_nhap_tu_ban_phim; Var n, i: integer; tong, so: integer; BEGIN writeln('Chuong trinh tinh tong N so nhap tu ban phim'); write('Nhap vao N= '); readln(N); tong: = 0; for i:=1 to N do begin write('Nhap vao so thu [',i,']='); readln(so); tong:= tong + so; end; writeln('Tong cua N so vua nhap bang: ',tong:4); readln; END.

2.

Program HOC24;

var i,n,min,min2: 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;

min:=a[1]; min:=a[1];

for i:=1 to n do if a[i]<max then min:=a[i];

for i:=1 to n do if (a[i]<min2) and (a[i]<>min) then min2:=a[i];

writeln('So lon thu nhi cua day la : ',min2);

write('Cac chi so la : ');

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

readln

end.

1.

Program HOC24;

var i,n,max,max2: 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;

max:=a[1]; max2:=a[1];

for i:=1 to n do if a[i]>max then max:=a[i];

for i:=1 to n do if (a[i]>max2) and (a[i]<>max) then max2:=a[i];

writeln('So lon thu nhi cua day la : ',max2);

write('Cac chi so la : ');

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

readln

end.

Program HOC24;

var i,n,max,min: integer;

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

begin

write('Nhap so phan tu: '); readln(n);

for i:=1 to n do read(a[i]);

readln;

min:=a[1]; max:=a[1];

for i:=1 to n do

begin

if a[i]>max then max:=a[i];

if a[i]<min then min:=a[i];

end;

for i:=min to max do if i<>a[i] then write(i,' ');

readln

end.

Các bạn ơi, giúp mình làm bài này với ạ

uses crt;

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

n,i,max,min,tb:integer;

begin

clrscr;

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

for i:=1 to n do

begin

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

end;

tb:=0;

for i:=1 to n do

tb:=tb+a[i];

writeln('Gia tri trung binh cua day so la: ',tb/n:4:2);

max:=a[1];

min:=a[1];

for i:=1 to n do

begin

if max<a[i] then max:=a[i];

if min>a[i] then min:=a[i];

end;

writeln('Gia tri lon nhat cua day so la: ',max);

writeln('Gia tri nho nhat cua day so la: ',min);

readln;

end.

uses crt;

var n,i,dem: integer;

tb: real;

A:array[1..1000] of integer;

writeln('Nhap do dai day: '); read(n);

writeln('Nhap cac phan tu cua day: ');

for i:=1 to n do

begin

writeln('a[',i,']='); read(a[i]);

end;

tb:=0;

for i :=1 to n do

begin tb:=tb+a[i]; dem:=dem+1; end;

tb:=tb/dem;

writeln('Gia tri Tb la: ',tb);

readln

end.

bạn có đề không chụp đề cho mình với
mình không hiểu đề lắm

uses crt;

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

n,i,dem,tb:integer;

begin

clrscr;

write('Nhap so phan tu:'); readln(n);

for i:=1 to n do

begin

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

end;

tb:=0;

dem:=0;

for i:=1 to n do

if a[i] mod 2=0 then

begin

tb:=tb+a[i];

dem:=dem+1;

end;

writeln('Trung binh cong cac phan tu chan la: ',tb/dem:4:2);

readln;

end.

Program HOC24;

var max,min,i,n: integer;

t,tc: longint;

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

begin

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

max:=0; min:=32000; t:=0; tc:=0;

for i:=1 to n do

begin

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

if a[i]>max then max:=a[i];

if a[i]<min then min:=a[i];

t:=t+a[i];

if a[i] mod 2=0 then tc:=tc+a[i];

end;

write('Mang da nhap la : ');

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

writeln;

writeln('Gia tri lon nhat la ',max,' ; gia tri nho nhat la ',min);

write('Cac so le trong mang la : ');

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

writeln;

write('Cac so chan trong mang la : ');

for i:=1 to n do if a[i] mod 2=0 then write(a[i],' ');

writeln;

writeln('Tong cua mang A la : ',t);

write('Tong cac so chan co trong mang la : ',tc);

readln

end.

uses crt;

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

i,n,t:integer;

begin

clrscr;

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

for i:=1 to n do

begin

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

end;

writeln('Cac so chan co trong mang la: ');

for i:=1 to n do

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

writeln;

t:=0;

for i:=1 to n do

if a[i] mod 2<>0 then t:=t+a[i];

writeln('Tong cac so le co trong mang la: ',t);

readln;

end.

Cấu trúc 2 vòng biến mảng

Cách 1: Khai báo trực tiếp

VAR<Tên biến>:array[<chỉ số đầu>,<chỉ số cuối>] of<kiểu dữ liệu>;

Cách 2: Khai báo gián tiếp

Type<Tên biến>=array[<chỉ số đầu>,<chỉ số cuối>] of<kiểu dữ liệu>

Var<tên mảng>:<Tên biến>

uses crt;

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

n,i,t:integer;

begin

clrscr;

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

for i:=1 to n do

begin

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

end;

writeln('Day so A ban vua nhap la: ');

for i:=1 to n do

write(a[i],' ');

writeln;

t:=0;

for i:=1 to n do

if (a[i] mod 3=0) and (a[i] mod 5<>0) then t:=t+a[i];

writeln('Tong cac phan tu chia het cho 3 va khong chia het cho 5 la: ',t);

readln;

end.

-cách truy cập phần tử mảng : a[i]; ( a là tên mảng ; i là biến chỉ số có thể là số nguyên hoặc chữ cái ( nếu bạn khai báo mảng là a:array['a'..'z'] of integer; chẳng hạn )

-cách gán : a[i]:=x; (a,i như trên , x là 1 biến nguyên , thực ,... tùy theo khai báo của bạn )

-nhập mảng : for i:=x to n do readln(a[i]); { a,i như trên ; x,n là 1 biến nguyên và x<=n}

-in mảng : for i:=x to n do write(a[i]) ;

uses crt;

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

i,n,t:integer;

begin

clrscr;

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

for i:=1 to n do

begin

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

end;

writeln('Day so ban vua nhap la: ');

for i:=1 to n do

write(a[i]:4);

writeln;

t:=0;

for i:=1 to n do

if a[i] mod 2=0 then t:=t+a[i];

writeln('Tong cac so chan la: ',t);

readln;

end.