Массив Опции

[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

[Alena]

Я сделала так но в конце опять ошибка( после заполнения массива)
что то опять напартачила, а можно как то автоматизировать заполнение массива ну случайными числами например??????

Код

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

 { здесь - заполнение массивов }


WriteLn ('Vvedite elementi massiva X:');
For i := 1 To 80 Do
Begin
Write ('x[', i, '] = ');              
ReadLn (x[i]);
end;


WriteLn ('Vvedite elementi massiva Y:');
For i := 1 To 60 Do              

Begin
Write ('y[', i, '] = ');
ReadLn (y[i]);
               end;

 write('z = ', (exp(get_sum(y, 60)) + exp(get_sum(x, 80))) /

               (get_amount(y, 60) * get_amount(x, 80)) );
     end.