Массив Опции

[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

[volvo]

Значит, принцип такой:

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;

begin
  { здесь - заполнение массивов }
  write('z = ', (exp(get_sum(y, 60)) + exp(get_sum(x, 80))) /
                (get_amount(y, 60) * get_amount(x, 80)) );
end.