1.Дан одномерный массив из N элементов. Заменить в нем значение макс и мин элемента **...

Question

1.Дан одномерный массив из N элементов. Заменить в нем значение макс и мин элемента на сумму всех элементов массива
2. Дан одномерный массив из Н элементов. Найти среднее арифметическое положительных четных элементов данного массива

Answer 1

1. 
var
a:array[1..100] of integer;
i, n, min, max, imin, imax: integer;
begin
read(n);
for i:=1 to n do 
read(a[i]);
min:=a[1]; imin:=1;
if a[i]min:=a[i]; imin:=i; end;
max:=a[1]; imax:=1;
if a[i]>max then begin
max:=a[i]; imax:=i; end;
a[imax]:=2; a[imin]:=2;
end.

2. 
var
a:array[1..100] of integer;
i, n, s, k: integer;
begin
read(n); s:=0; k:=0;
for i:=1 to n do 
read(a[i]);
if (a[i] mod 2=0)and(a[i]>0) then begin
s:=s+a[i]; k:=k+1; end;
writeln((s/k):17:2);
end.