VCT pascal tính tổng lũy thừa của dãy số 1^2+2^2+3^2+.....n^2, với n được nhập từ bàn phím.Sau đó xuất kết quả ra màn hình

uses crt;
var n,s,i:longint;
begin
clrscr;
write('n');
readln(n);
i:=0;
s:=0;
repeat
begin
i:=i+1;
s:=s+sqr(i);
end;
until
i=n;
writeln(s);
readln
end.

VCT nhập vaog mảng 1 chiều gồm N số nguyên (N<=100).Sau đó ghi các phần tử vừa nhập ra màn hình và đếm số lượng số âm, số dương có trong mảng.

uses crt;
var a:array[1..100] of longint;
n,s,i,dd,da:longint;
begin
clrscr;
write('so luong ptu');
readln(n);
if n>100 then writeln('sai dieu kien')
else
begin

i:=0;
dd:=0;
da:=0;
repeat
begin
i:=i+1;
writeln('ptu thu ',i);
readln(a[i]);
if a[i]>=0 then dd:=dd+1
else da:=da+1;
end;
until
i=n;
writeln('phan tu duong',dd);
writeln('phan tu am',da);
end;
end.

ảnh 1 bài 2

ảnh 2 bài 1