Var s,k:integer;
begin
s:=0;
for k:=3 to 10 do
s:=s+13;
write(s);
<span>end.
Ответ 104</span>
Потому что условный оператор проверяет выражение на истинность. Если истина то выполнится одна ветка, если ложь то другая ветка конструкции ветвления.
В таблице:
9 л 9 4 4 - 9 8 8 3
<span>5 л - 5 - 4 4 5 - 5</span>
Видимо, это фрагмент программы на 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 я убрал, потому что он уничтожит содержимое массива.
Элементарно погода. И вообще все что вокруг.