Paskal

[netcher]

Помогите решить 2 задачи
1. Максимальный елемент поменять местами с другим нулевым
2. Останній від'ємний елемент замінити найбільшим

[Манжосов Денис :)]

Макс. элемент массива или чего?

Максимальный елемент поменять местами с другим нулевым

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;
type MyArray = array [1..100] of integer;

procedure Change(a: MyArray);
var i,Max, Zero, x: integer;
begin
Zero := 0;
  Max := a[1];
  for i:=1 to 100 do
    begin
      if a[i] > Max then Max := a[i];
      if a[i] = 0 then Zero := i;
    end;
  x := Max;
  a[Zero] := x;
  Max := a[zero];
 end;

begin

end.[Zero];
end;

P.S. Пожалуйста, не поленитесь и переведите вторую задачу.

[netcher]

елемент-число
2. Последний отрицательный елемент заменить найбольшим

[alex_fcsm]

const n=10;
var max,otr,i:integer;
    a:array[1..n] of integer;
    
    
begin
for i:=1 to n do
 begin
 a[i]:=random(100)-random(100);
 write(a[i],' ');
 end;
 writeln;
 max:=1;
 otr:=0;
 for i:=1 to n do
  begin
   if a[i]>a[max] then max:=i;
   if a[i]<0 then otr:=i;
  end;
  if otr<>0 then a[otr]:=a[max];
 for i:=1 to n do
  write(a[i],' ');
end.