Подпрограммы и массивы

[RaccoonRocket]

Написать функцию, которая вычисляет сумму и произведение ненулевых элементов массива X(N). С помощью подпрограммы подсчитать вычисляет сумму и произведение ненулевых элементов массивов A(8), B(6), C(10). Элементы массивов A, B, C вычисляются по формулам:
Ai=0.15isin(0.5i^2)+1,
Bk=0.6kcos(0.1k^2+12k),
CL=0.2(L-5)^2+0.5(L-4)+2.

Нужна ваша помощь, а то у меня с подпрограммами беда, а массивы - совсем провал. Если нет времени или желания, просто подскажите основное, в каком направлении двигаться. Заранее огромное спасибо за ответ

[p51x]

Основное: узнать какой язык программирования вы изучаете.

[RaccoonRocket]

Сообщение от p51x

Основное: узнать какой язык программирования вы изучаете.

Pascal, компилятор - Turbo Delphi

[Stilet]

А что-нибудь из твоих попыток мона увидеть?
Чтоб знать от чего отталкиваться в помощи.

[RaccoonRocket]

Дальше чем

{$APPTYPE CONSOLE}
uses
  SysUtils;


var a:array[1..8] of double;
    b:array[1..6] of double;
    c:array[1..10] of double;
    m,n,i,j,kn,ks,k,L:byte;
begin
writeln('A:');
for i:=1 to 8 do
 begin
     a[i]:=0.15*sin(0.5*i*i)+1;
     write(a[i]:4);
    end;
   writeln;
writeln('B:');
for k:=1 to 6 do
 begin
     b[k]:=0.6*k*cos(0.1*k*k+12*k);
     write(b[k]:4);
    end;
   writeln;
writeln('C:');
 for i:=1 to 8 do
 begin
     c[L]:=0.2*(L-5)*(L-5)+0.5*(L-4)+2;
     write(c[L]:4);
    end;
   writeln;

end.

уйти не могу:D

[type_Oleg]

А динамические массивы вы проходили ?
Или с ними тоже прям беда.

program RaccoonRocket;

{$APPTYPE CONSOLE}
type tMass=array of Double; // динамический массив

procedure procSumPro(mas:tMass;var sum,pr:Double); // это ваша процедура
var n,i:Byte;
begin
 sum:=0;
 pr:=0;
 n:=Length(mas);
 if n=0 then Exit;  // если массив пустой, то и нечего считать
 pr:=1;
 for i:=0 to n-1 do
  if mas[i]<>0 then
   begin
    sum:=sum+mas[i];
    pr:=pr*mas[i];
   end;
end;

begin
 // а собственно саму программу сами пишите
 // вызывайте в ней процедуру procSumPro , и т.д. 
end.

Вообщем, двигайтесь в сторону - почитать про динамические массивы и вызов процедур.
PS В принципе, в качестве подпрограммы можете использовать не процедуру, а функцию :

function sum(mas:tMass;var pr:Double):Double; // это ваша функция

[RaccoonRocket]

Огромное - огромное спасибо

вот что у меня получилось (без динамических массивов все же)

{$APPTYPE CONSOLE}
uses
SysUtils;


var a:array[1..8] of double;
b:array[1..6] of double;
c:array[1..10] of double;
m,n,i,j,kn,ks,k,L:byte;

procedure procSumPro(mas:array of double);
var n,i:Byte; var sum,pr:Double;
begin
 sum:=0;
 pr:=0;
 n:=Length(mas);
 if n=0 then Exit;
 pr:=1;
 for i:=0 to n-1 do
  if mas[i]<>0 then
   begin
    sum:=sum+mas[i];
    pr:=pr*mas[i];
   end;
   writeln;
   writeln('сумма = ', sum:2:2, ' произведение = ', pr:2:2);
end;

begin
writeln('A:');
for i:=1 to 8 do
begin
a[i]:=0.15*sin(0.5*i*i)+1;
write(a[i]:8:2);
end;
procSumPro(a);
writeln;
writeln('B:');
for k:=1 to 6 do
begin
b[k]:=0.6*k*cos(0.1*k*k+12*k);
write(b[k]:8:2);
end;
procSumPro(b);
writeln;
writeln('C:');
for L:=1 to 8 do
begin
c[L]:=0.2*(L-5)*(L-5)+0.5*(L-4)+2;
write(c[L]:8:2);
end;
procSumPro(c);
writeln;
readln;
end.