Массив Опции

[Alena]

Мальчишки вы все так классно решаете, а я в паскале не понимаю, через 2 дня надо сдавать контрольную , помогите пожалуйста а? :p2:

Дали вот такое запутанное задание

Вычислить

                          s1    s2
                        E  + E
                z= _____________
                          k1*k2

s2 - сумма положительных элементов массива X(80)
k2 - кол- во положительных элементов массива X(80)

s1 - сумма положительных элементов массива y(60).
k1 - кол- во положительных элементов массива y(60).
выполнить с использованием подпрограмм

Сообщение отредактировано: volvo - 8.09.2005 10:14

[Guest]

вот так всё равно не работает

Код

function get_amount(var arr: array of integer;
        const n: integer): integer;
var i, count: integer;
begin
 count := 0;
 for i := 0 to pred(n) do
   if arr[i] > 0 then inc(count);
 get_amount := count;
end;
function get_sum(var arr: array of integer;
        const n: integer): integer;
var i, s: integer;
begin
 s := 0;
 for i := 0 to pred(n) do
   if arr[i] > 0 then inc(s, arr[i]);
 get_sum := s;
end;
var
 x: array[1 .. 80] of integer;
 y: array[1 .. 60] of integer;
  i: integer;
begin
 { здесь - заполнение массивов }
For i := 1 To 80 Do x[i] := Random(100); {числа от 0 до 99 }
For i := 1 To 60 Do y[i] := Random(100);
 write('z = ', (exp(get_sum(y, 60)) + exp(get_sum(x, 80))) /
               (get_amount(y, 60) * get_amount(x, 80)) );
end.