Дан фрагмент программы на алгоритмическом языке нц дляm от 3 до 12 k: =m-5; n: =m; b[m, n]: =m*n-2*k кц нц дляm от 1 до 13 k: =m-2; b[n, m]: =2*m-2*k кц чему будет равно значение b[12, 13]?

Оно будет равно четырем. так думает программа)) смотрите картинку во вложении.

//pascal //массивы размеров 10 элементов заполняются случайными числами от -10 до 10 //1 var   a: array[1..10] of real;   i: byte; begin randomize; writeln('исходный массив.'); for i : = 1 to 10 do begin   a[i] : = random(21)-10;   write(a[i]: 5); end; writeln; writeln('измененный массив.'); for i : = 1 to 10 do begin   if a[i] > 0 then a[i] : = a[i] / 2   else a[i] : = i;   write(a[i]: 5); end; writeln; end. //2 var   a: array[1..10] of integer;   i: byte;   mult: longint; begin mult : = 1; randomize; writeln('исходный массив.'); for i : = 1 to 10 do begin   a[i] : = random(21)-10;   mult : = mult * a[i];   write(a[i]: 5); end; writeln; writeln('произведение элементов массива = ', mult); end.

/* c */ #include < stdio.h> #include < stdlib.h> int main() {       int n = 1, sum = 0;       while (n ! = 0){               scanf("%d", & n);               if ((n > -10) & & (n < 10)) sum += n;       }       printf("sum = %d", sum);       return 0; } //pascal var sum, n: integer; begin sum : = 0; n : = 1; while (n < > 0) do begin readln(n); if ((n > -10) and (n < 10)) then sum : = sum + n; end; writeln('sum = ', sum); end.