Имеется 2 запоминающих устройства одно емкостью 512 кбайт другое 2 мбайт. укажите суммарную емкость обоих устройств в килобайтах. ответ должен быть 2560

1  зу 512 кб 2 зу 2 мб  =  2048 кб итого: 512 + 2048 = 2560 кб

2мбайт - 2048 кбайт 1) 2048+512=2560 кбайт

Const   n = 7; var   a: array[1..n, 1..n] of integer;   i, j, sum, min, imin: integer; begin   randomize;   for i : = 1 to n do       for j : = 1 to n do           a[i, j] : = random(100) - 50;   writeln('исходный массив');   for i : = 1 to n do   begin       for j : = 1 to n do write(a[i, j]: 4);       writeln   end;   sum : = 0;   min : = 100; //у нас в массиве числа на (-50: 50)   for i : = 1 to n - 1 do       for j : = 1 to n - i do           sum : = sum + a[i, j];   for i : = 1 to n do       if min > a[i, i] then begin           min : = a[i, i];           imin : = i       end;   writeln('сумма элементов левее побочной диагонали=', sum);   writeln('минимальный элемент на главной диагонали=', min, ', его координаты (', imin, ',', imin, ')') end. контрольный пример: исходный массив   14  39  -7 -26  10 -33    9   48 -21 -19    6    2  24 -16   27 -41 -26  -7  16 -27 -34   42  32 -12 -37  -9  20 -26   -35 -20 -34  40  -3    5    1   23  31 -11  -9  26 -28  25   34  26 -30  11  43  19 -26 сумма элементов левее побочной диагонали=-4 минимальный элемент на главной диагонали=-37, его координаты (4,4)

Видимо, это фрагмент программы на vb, привязанный к клику по кнопке button4 на некоторой форме. private sub commandbutton4_click()    max = 0    for j = 1 to n        for i = 1 to m            if max < a(i, j) then max = a(i, j)        next i    next j    textbox2.text = textbox2.text + str(max) + " "end sub здесь ищется, а затем выводится в поле на форме максимальный элемент двухмерного массива, который извне и заполнен некоторыми значениями. оператор redim я убрал, потому что он уничтожит содержимое массива.