Turbo Pascal. Процедуры и функции

[Spidey-Goblin]

Turbo Pascal. Процедуры и функции

Пользуясь данными таблицы 1, сформируйте исходные массивы, используя генератор случайных чисел. С помощью подпрограммы – функции FUNCTION выполнить задание в таблице вычисления. На печать вывести значения элементов исходных массивов с заголовком и результаты вычислений.
Где V(23) - число элементов массива, с их ними значениями от -5 до 3 и т. д.

 

[Vladimir_S]

Пользуясь данными таблицы 1, сформируйте исходные массивы, используя генератор случайных чисел. С помощью подпрограммы – функции FUNCTION выполнить задание в таблице вычисления. На печать вывести значения элементов исходных массивов с заголовком и результаты вычислений.

Пожалуйста:

Type
 Ar=Array[1..35] of Real;

Const
 Nv=23;
 Nw=35;

Var
 V,W:Ar;
 i:byte;

Function Sum(Q:Ar; N:Byte):Real;
var
 t:byte;
 S:Real;
begin
 S:=0;
 for t:=1 to (N div 2) do S:=S+Q[2*t];
 Sum:=S;
end;

Begin
 Randomize;
 Writeln('Array V:');
 for i:=1 to Nv do
  begin
   V[i]:=Random*8-5.0;
   write(V[i]:8:2);
  end;
 Writeln;
 Writeln;
 Writeln('Array W:');
 for i:=1 to Nw do
  begin
   W[i]:=Random*11-3.0;
   write(W[i]:8:2);
  end;
 Writeln;
 Writeln;
 Writeln('Result for V: ',Sum(V,Nv):0:2);
 Writeln('Result for W: ',Sum(W,Nw):0:2);
 Readln
End.

 

[Spidey-Goblin]

Спасибо огромное!)