Bài 1:
programbai1;
uses crt;
var A:array[1..10000] of integer;
n,i:integer;
begin
clrscr;
write('Nhap so luong phan tu n: '); readln(n);
writeln('NHAP GIA TRI TUNG PHAN TU CUA MANG');
for i:=1 to n do
begin
write('Phan tu thu ',i,': ');
readln(A[i]);
end;
write('mang vua nhap la: ');
for i:=1 to n d
write(A[i],' ');
readln
end.
Bài 2:
program bai2;
var A:array[1..10000] of integer;
n,i:integer;
t:longint;
begin
clrscr;
write('Nhap so luong phan tu n: '); readln(n);
writeln('NHAP GIA TRI TUNG PHAN TU CUA MANG');
t:=0;
for i:=1 to n do
begin
write('Phan tu thu ',i,': ');
readln(A[i]);
t:=t+A[i];
end;
write('Tong cac phan tu cua mang la: ',t);
readln
end.
bài 3:
program bai3;
var A:array[1..10000] of integer;
n,i,d:integer;
begin
clrscr;
write('Nhap so luong phan tu n: '); readln(n);
writeln('NHAP GIA TRI TUNG PHAN TU CUA MANG');
for i:=1 to n do
begin
write('Phan tu thu ',i,': ');
readln(A[i]);
end;
write('Nhap k: '); readln(k);
d:=0;
for i:=1 to n do
if A[i]=k then d:=d+1;
write('Co ',d,' phan tu trong mang bang ',k);
readln
end.
Chúc bạn học tốt nha!
Cho mình ctlhn nha bạn.