Câu 1:

uses crt;

var a,b: integer;

begin

clrscr;

write('Nhap so thu nhat: '); readln(a);

write('Nhap so thu hai: '); readln(b);

writeln('Tong hai so la: ',a+b);

write('Hieu hai so la: ',a-b;)

readln;

end.

Câu 2:

uses crt;

var n,i,chan,le:integer;

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

begin

clrscr;

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

for i:=1 to n do

read(a[i]);

for i:=1 to n do

if i mod 2 = 0 then inc(chan) else inc(le);

writeln;

writeln('So so chan la: ',chan);

write('So so le: ',le);

readln;

end.

Bài 1:

Program Ting_tong;

uses crt;

var a,b: real;

begin

clrscr;

write('nhap so a ='); realdn(a);

write('nhap so b ='); realdn(b);

writeln('Tong cua 2 so nguyen ',a,' va ',b,' =' ' ,a+b);

readln

end.

Bài 2:

 program CTNMT;

uses crt;

var n,i,dem: longint;

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

Begin

Writeln('Ban hay N'); Readln(n);

for i:=1 to n do

begin

Writeln('Nhap so thu ',i); Readln(a[i]);

end;

Writeln('In ra mang:');

for i:1 to n do Write(a[i]:5);

writeln;

Writeln('In ra so chan trong mang');

for i:= 1 to n do

begin

if (a[i] mod 2) = 0 then Write(a[i]:5)

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

end;

writeln('so so nguyen am la: ',đem);

REadln;

end.