помогите составить программу в "Pascal"
1.Дан массив С[n]. Вычислить произведение положительных элементов, сумму отрицательных и найти их количество
2.Вводятся натуральные числа N и x. Заполнить массив первыми N степенями числа x, а затем вывести полученный массив
1.
program pr;
uses crt;
var i,k,q,l:integer;
begin clrscr;
l:=1;k:=0. q:=0;
For i:=1 to n do
writeln('vvedite chislo');
end;
for i:=1 to n do begin
if c>0 then begin
l:=l*c;
else
if c<0 then begin
k:=k+1;
q:=q+c;
end;
end;
end;
end.
k- кол-во отрицательных q- сумма отрицательных l произведение положительных
Второе решил:
Введите натуральное число X = 123456
Введите натуральное число N (от 1 до 99) = 17
Первые степени:
123456^0 = 1
123456^1 = 123456
123456^2 = 15241383936
123456^3 = 1881640295202816
123456^4 = 232299784284558852096
123456^5 = 28678802168634497644363776
123456^6 = 3540570200530940541182574329856
123456^7 = 437104634676747795452235896466702336
123456^8 = 53963189778652575835351234834193203593216
123456^9 = 6662079557313332402329122047690156142804074496
123456^10 = 822473693827674765061944091519635916766019820978176
123456^11 = 101539312345189415795487369762648171740265743018681696256
123456^12 = 12535637344887704516447688721417492690366247570114367492980736
123456^13 = 1547599644050456448782565858791317977581855460016039353213429743616
123456^14 = 191060461655893151340900450662940952240345547671740154390317182427856896
123456^15 = 23587560354189944891942206037044038199784099933362352500410998073813500952576
123456^16 = 2912025851086873836579616988509308779992545841373182590290740178200719573601222656
123456^17 = 359507063471781096368773194933405224742759739392567629866933619439948035678512544219136
⇢