Đáp án đúng : D

uses crt;

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

i,n: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 am la: ');

for i:=1 to n do

if a[i]<0 then write(a[i]:4);

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;

t:=0;

for i:=1 to n do

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

writeln('Tong cac so chia het cho 2 va 3 la: ',t);

readln;

end.

Viết phương trình nhập một dãy số nguyên có n phần tử. Tìm tổng các phần tử chia hết cho 2 

Tin học lớp 8

uses crt;

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

i,n,dem,kt,j:integer;

begin

clrscr;

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

for i:=1 to n do

begin

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

end;

dem:=0;

for i:=1 to n do

begin

kt:=0;

for j:=1 to a[i] do

if a[i] mod j=0 then inc(kt);

if kt=2 then

begin

write(a[i]:4);

inc(dem);

end;

writeln;

writeln('Co ',dem,' so nguyen to');

readln;

end.

1. C

2. D

3. D

program Gui_tiet_kiem;

uses crt;

const laisuat = 0.003;

var tiengui, tienrutve, luu: real;

thang : integer;

Begin

clrscr;

write ('Nhap vao so tien gui:'),

readln(tiengui);

luu:= tiengui;

write('So tien co khi rut ve: ’);

readln(tienrutve);

thang : = 0 ;

while Tiengui < tienrutve> do begin

tiengui:= tiengui + tiengui* laisuat ; thang:= thang + 1 ;

end;

write('Gui',luu: 0 : 0, ' dong, sau thang, thang');

writeln('se nhan duoc so tien',tienrutve:0 : 0,' dong');

readln

End .

program bai7;

uses crt;

var tcha,tcon,nam:integer;

begin

clrscr;

write('nhap vao tuoi cha va tuoi con '); readln(tcha,tcon);

nam:=0;

while(tcha<>tcon*2) do

begin

tcha:=tcha+1;

tcon:=tcon+1;

nam:=nam+1;

end;

writeln('sau ',nam,' nam nua thi tuoi cha gap 2 lan tuoi con');

readln;

end.

Kiểu dữ liệu của mảng có thể là những kiểu dữ liệu chuẩn (integer,byte,real,…), kiểu dữ liệu có cấu trúc (string,kiểu bản ghi).

Kiểu dữ liệu của mảng có thể là những kiểu dữ liệu chuẩn (integer,byte,real,…), kiểu dữ liệu có cấu trúc (string,kiểu bản ghi).

Mảng là 1 tập hợp các phần tử được đánh số có thứ tự thường là từ 0 hoặc 1cho nên khi khai báo mảng ta cần khai báo thêm kích thước để máy có thể cấp phát đủ bộ nhớ chứa số lượng các phần tử.