Question

1) Поменять местами минимальный четный элемент с последним.

2)На место максимального отрицательного элемента поместить сумму элементов кратных 3. (в программе Паскаль) РЕБЯТКИ помогите)))))))

Answer 1

1) program z1;
uses crt;
var a: array[1..100] of integer;
n,i,x,max,min,k:integer;
begin
randomize;
readln(n);
for i:=1 to n do
begin
a[i]:=random(100);
write(a[i]:4);
end;
writeln;
min:=a[2];
for i:=3 to n do
begin
if a[i] mod 2=0 then
if a[i]<min then
begin
min:=a[i];
k:=i;
end;
end;
x:=a[k];
a[k]:=a[n];
a[n]:=x;
for i:=1 to n do
write(a[i]:4);
max:=a[1];
end.