Завдання 2. Команда повторення з умовою. 5) Знайти та виправити помилки у наведеному фрагменті
K=10
S:=k
While k+s>10 do begin k:=k-2;
Write k;

6) Що буде виведено на екран після виконання фрагменту програми
S:=0;
K:=10;
While s+k>=10 do k:=k-2;
Write(k);

Const
  m = 4; n = 3;

var
  a: array[1..m, 1..n] of integer;
  i, j, mi, mj, max: integer;

begin
  Randomize;
  for i := 1 to m do
    for j := 1 to n do
      a[i, j] := random(100) - 50;  // случайные числа в интервале [-50..50]
  max := -100;  //меньше минимального из возможных
  for i := 1 to m do
    for j := 1 to n do
      if max < abs(a[i, j]) then begin
        max := abs(a[i, j]); mi := i; mj := j
      end;
  writeln('Исходный массив');
  for i := 1 to m do
  begin
    for j := 1 to n do
      write(a[i, j]:4);
    writeln
  end;
  writeln('Максимальный по модулю элемент:a(', mi, ',', mj, ')=', max:3)
end.

Контрольный пример:
Исходный массив
  10  30  30
  24 -11  28
 -43 -50 -13
  -8  21   5
Максимальный по модулю элемент:a(3,2)= 50

Const
  n = 15;

var
  a: array[1..n] of integer;
  i, s, X: integer;

begin
  writeln('Введите значение Х');
  readln(X);
  Randomize;
  for i := 1 to n do
    a[i] := random(100) - 50;  // случайные числа в интервале [-50..50]
  s := 0;
  for i := 1 to n do
    if (a[i]) < X then
      s := s + abs(a[i]);
  writeln('Исходный массив');
  for i := 1 to n do
    write(a[i]:4);
  writeln;
  writeln('Искомая сумма:', s:3)
end.

Контрольный пример:

Введите значение Х
5
Исходный массив
  17 -11   4  35 -13 -47   3  25 -50   4  28  33  -6  49 -48
Искомая сумма:186