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 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. Giúp mk .mk cần gấp.

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