Видимо, это фрагмент программы на VB, привязанный к клику по кнопке Button4 на некоторой форме.
<span>Private Sub CommandButton4_Click()
</span><span><span>Max = 0
</span> 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</span>
Здесь ищется, а затем выводится в поле на форме максимальный элемент двухмерного массива, который извне и заполнен некоторыми значениями. Оператор ReDim я убрал, потому что он уничтожит содержимое массива.
6 т.к. тело цикла это 3 значения то и выполняется операция 3 раза
Для кодирования одного символа в кодировке ASCII используется 8 бит, в кодировке Unicode - 16 бит (хотя это зависит от того, что кодируется). Следовательно, искомый объем сообщения = 2^13 * 2 = 2^14
1. Находим, сколько пикселей будет всего.
256×256 = 65536
2. 16 = 2⁴, поэтому цвет каждого пикселя кодируется 4 битами. 4 бита = 4/8 = 1/2 байта.
3. 1 фото займет 65536×(1/2) = 32768 байт или 32768 / 1024 = 32 Кбайт
4. 2 фото займут 2×32 = 64 Кбайт
Ответ: 64
Составьте программу ввода и вывода массива;3,4,-9,8,1,-6,2,-5,-1,7,5,9.
В ТАБЛО ДАМ ПИЗ Д...
Var a: array[1..50] of Integer;
x,i: integer;
begin
writeln('количество элементов в массиве:');
readln(x);
for i:=1 to x do
begin
readln(a[i]);
end;
for i:=1 to x do
begin
writeln(a[i]);
end;
end.