a)
Var a:array[1..100] of integer /Khai báo mảng đó anh(chị)/
/Nhập các phần tử/
Var i, N:integer;
Begin
Write('Nhap so phan tu N: '); readln(N);
i:=1;
While i <= n do begin
write('Nhap phan tu thu', i ); readln(a[i]);
i:=i +1;
end;
End.
b) /Em lấy như trên nên chỉ thêm vô mấy cái mới thôi nhé/
Var S, C : integer;
Begin
i: =1;
S:=0;
C:=0;
while i <= N do
begin
if a[i] mod 4 = 3 then begin S:= S+ a[i]; C:= C+1; end;
i:=i+1;
end;
Writeln('Trung binh cong la: ', S/C);
Readln;
End.
c)/eM BỎ MẤYCASI GIỐNG NHƯ TRÊN/
Begin
i:= 1;
While i <= N do
begin
if i = k then writeln(a[i]);
end;
readln;
End.
d)
Begin
i:=20
While i <= 100 do begin writeln(a[i]); i:=i+1; end;
readln;
End.
e)
Var ch, lh : integer
Begin
i:=1;
lh:=0; ch:=0;
while i<=N do begin
if a[i] > 0 then lh := lh +1;
if a[i] mod 2 = 0 them ch := ch +1;
end;
Writeln('So phan tu lon hon 0 la: ', lh,' So phan tu chia het cho 2 la: ', ch);
readln;
End.
f)
var tong, tich : integer;
begin
i: = 1;
tong:=0; tich:=1;
while i <= N do begin
if a[i] mod 9 =0 then begin tong: = tong + a[i]; tich:=tich*a[i]; end;
i:=i+1;
end;
Writeln('Tong cac phan tu chia het cho 9 la: ', tong);
Writeln(Tich cac phan tu chia het cho 9 la: ', tich);
readln;
end.
