Я сделала так но в конце опять ошибка( после заполнения массива)
что то опять напартачила, а можно как то автоматизировать заполнение массива ну случайными числами например??????
Код
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.