Если сумма сделки записывается в столбец C, то формула будет иметь вид:
=ЕСЛИ(C2<10000;C2*5%;ЕСЛИ(C2<20000;C2*8%;C2*12%))
<u /><em></em><em>VAR</em>
<em> n, m, sum, i, j: Integer;</em>
<em> a: Array [1..10000] of Array [1..10000] of Integer;</em>
<em>BEGIN</em>
<em> Read(n, m);</em>
<em></em>
<em> For i := 1 to n do</em>
<em> For j := 1 to m do Read(a[i][j]);</em>
<em></em>
<em> For i := 1 to n do</em>
<em> For j := 1 to m do</em>
<em> If (a[i][j] > 0) then sum := sum + a[i][j];</em>
<em></em>
<em> Write(sum);</em>
<em>END. </em>
<em></em>
<u>Но для экономии времени и сил можно не создавать массив:</u>
<em>VAR</em>
<span><em> n, m, sum, el, i, j: Integer;</em></span>
<em>BEGIN</em>
<span><em> Read(n, m);</em></span>
<em></em>
<span><em> For i := 1 to n do</em></span>
<span><em> For j := 1 to m do begin </em></span>
<span><em> Read(el);</em></span>
<span><em> If (el > 0) then sum := sum + el;</em></span>
<span><em> End;</em></span>
<em></em>
<span><em> Write(sum);</em></span>
<em>END.</em>
Смотря сколько цветов
<span>256 - 1 пиксель -1 байт </span>
<span>2^24 1 п - 3 байта </span>
<span>2^32 1 п - 4 байта</span>
В Операционной системе Windows:
1 значок это "Помощь"
2 значок это "Занят"
3 значок это "Выделение текста"
4 значок это "Недоступно"
5 значок это "Изменение вертикальных размеров"
6 значок это "Изменение горизонтальных размеров"
7 и 8 значок это "Изменение размеров по диагонали 1" "Изменение размеров по диагонали 2"
9 значок это "Переместить"