q199977740

var vectorA,tmp:array[1..25] of integer; pr,sum,cnt,imin,imax1,imax2,i:integer;
begin
imin:=1;
write('Вектор А: ');
for i := 1 to 25 do begin
VectorA[i] := random(5);
if VectorA[imin]>VectorA[i] then imin:=i;
write(VectorA[i]:2);
end;
writeln;

//a
pr:=1;
for i := 1 to 25 do begin
if VectorA[i]>2 then pr := pr*VectorA[i];
if i>=15 then sum := sum + VectorA[i];
end;
writeln('a) Произведение: ',pr,'; Сумма: ',sum);

//б
write('б) Вектор без первого минимального элемента(',VectorA[imin],'):');
for i := 1 to 25 do
if i<>imin then write(VectorA[i]:2);
writeln;

//в
sum:=0;
for i := 1 to 12 do
sum := sum + VectorA[i];
writeln('в) Среднеарифметическое значение элементов с четными индексами: ',sum/12:0:3);

//г
imax1:=1; imax2:=11;
for i := 1 to 20 do begin
if (VectorA[imax1]<VectorA[i])and(i<11) then imax1:=i;
if (VectorA[imax2]<VectorA[i])and(i>10) then imax2:=i;
end;
VectorA[imax1] := VectorA[imax1]+VectorA[imax2];
VectorA[imax2] := VectorA[imax1]-VectorA[imax2];
VectorA[imax1] := VectorA[imax1]-VectorA[imax2];
writeln('г) После перестановки максимальных элементов (',VectorA[imax2],' и ',VectorA[imax1],'):');
for i := 1 to 25 do write(VectorA[i]:2);
end.