câu 1:

uses crt;

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

      i,n,s: integer;

begin

clrscr;

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

for i:=1 to n do

begin

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

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

writeln ('tong cac so trong day chia het cho 3 va 5 la: ',s);

end;

readln;

end.

thuật toán:

B1: nhập số phần tử của mảng

B2: nhập mảng

B3: kiểm tra từng phần tử của mảng nếu chia hết cho 3 và 5 thì s:=s+a[i];

B4: xuất kết quả ra màn hình

câu 2:

uses crt;

var p,a,b: integer;

begin

clrscr;

write ('nhap a: ');  readln (a);

write ('nhap b: ');  readln (b);

if (a>0) and (b>0) then p:=(a*a)+(b*b);

if (a<=0) and (b<=0) then p:=(a+b)*(a+b);

writeln ('gia tri cua P la: ',p);

readln;

end.

thuật toán:

B1: nhập a

B2: nhập b

B3: kiểm tra xem a và b thuộc trường hợp nào rồi tính theo trường hợp đó

       if (a>0) and (b>0) then p:=(a*a)+(b*b);

       if (a<=0) and (b<=0) then p:=(a+b)*(a+b);

B4: xuất kết quả ra màn hình