Нужно сделать 1 полностью, а также попрошу подробно показать как пишется эта формула

с cd-r информацию нельзя удалить, можно только добавить. с cd-rw- можно удалить.

обработка с электронных таблиц автоматизирует весь процесс и ускоряет выполнение работы.

var a: array[1..5,1..3] of integer;

i,k,j,min,max: integer;

begin

  min=1000;

  max=-1000;

  for i: = 1 to 5 do

      for j: = 1 to 3 do begin

        a[i,j]: = random(256);

      if min> a[i,j] then min: =a[i,j];

          if max< a[i,j] then max: =a[i,j];

  end;

  writeln(min, max);

end.

program num1; uses crt; var a : array [1..10] of integer; i : integer; begin clrscr; for i: =1 to 10 do begin write('a[',i,']='); readln(a[i]) end; for i: =1 to 10 do if a[i]< 0 then a[i]: =abs(a[i]); writeln('********************************'); for i: =1 to 10 do writeln('a[',i,']=',a[i]); end.