Дан одномерный массив целых чисел, состоящий из 19 ячеек, заполненный случайными числами из промежутка [-75, 24] найди среднее арифметическое положительных четных элементов

var

arr : array[1..19] of integer;

i,s,_counter : integer;

begin

s := 0;

_counter := 0;

randomize;

write('Исходный массив: ');

for i := 1 to 19 do begin

arr[i] := -74 + random(99);

write(arr[i],' ');

end;

for i := 1 to 19 do

if ((arr[i] > 0) and (arr[i] mod 2 = 0)) then

begin

s := arr[i] + s;

_counter:= _counter + 1;

end;

writeln();

writeln('Среднее арифметическое четных положительных элементов: ', s / _counter:5:2);

end.