D

program day_du_cau_lenh;

uses crt;

var i,n:integer;

a:array[1..100]of intrger;

begin

clrscr;

write('nhap so n:');readln(n);

i:=1;

while i<=n do

begin

write('nhap a[',i,']:');readln(a[i]);

i:=i+1;

end;

for i:=1 to n do

if a[i]>=0 then write(a[i]) else write('');

readln;

end.

a)sai vì điều kiện không thể là phép gán và thiếu dấu chấm phẩy

b)sai vì thiếu chấm phẩy

c)sai vì thiếu dấu chấm phẩy

d)sai vì điều kiện không thể là dấu chấm phẩy và thiếu dấu chấm phẩy

program tim_so;

uses crt;

var a,b,c:word;

begin

clrscr;

for a:=0 to 9 do

for b:=0 to 9 do

for c:=0 to 9 do

if a*a*a+b*b*b+c*c*c=a*100+b*10+c then writeln(a*100+b*10+c);

readln;

end.

cho mảng 1 chiều gồm n phần tử in ra màn hình các phần tử chính phương của mảng

program dem_so;

uses crt;

var i,n,dem,k:longint;

a:array[1..100]of longint;

begin

clrscr;

write('nhap so n:');readln(n);

for i:=1 to n do

begin

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

end;

dem:=0;

write('nhap so k:');readln(k);

for i:=1 to n do

if a[i]=k then dem:=dem+1;

if dem=0 then write(k,' khong co trong day so tren');

readln;

end.

Bài 1:

program in_phan_tu;

uses crt;

var n,i:longint;

a:array[1..100] of longint;

begin

clrscr;

write('nhap so n:');readln(n);

for i:=1 to n do

begin

write('nhap phan tu a[',i,']:');readln(a[i]);

end;

for i:=1 to n do

write(a[i]:3);

readln;

end.

Bài 2:

program tong_phan_tu;

uses crt;

var n,i,tong:longint;

a:array[1..100] of longint;

begin

clrscr;

write('nhap so n:');readln(n);

for i:=1 to n do

begin

write('nhap phan tu a[',i,']:');readln(a[i]);

end;

tong:=0;

for i:=1 to n do

tong:=tong+a[i];

writeln('tong cua day la:');

readln;

end.

Bài 3:

program tong_phan_tu_chan;

uses crt;

var n,i,tong:longint;

a:array[1..100] of longint;

begin

clrscr;

write('nhap so n:');readln(n);

for i:=1 to n do

begin

write('nhap phan tu a[',i,']:');readln(a[i]);

end;

tong:=0;

for i:=1 to n do

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

writeln('tong cua day la:');

readln;

end.

program tim_so_nguyen_am;

uses crt;

var n,i:integer;

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

begin

clrscr;

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

repeat

for i:=1 to n do

begin

write('nhap phan tu b[',i,']:');readln(b[i]);

end;

if abs(a[i]>1000)then write('ban hay nhap lai:');

until abs(b[i]<=1000);

writeln('cac phan tu nguyen duong cua mang la:');

for i:=1 to n do

if b[i]>=0 then write(b[i]:5);

writeln;

writeln('cac phan tu nguyen am cua mang la:');

readln;

end.

for i:=1 to n do

if b[i]<0 then write(b[i]:5);