<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>
Ответ:
29
Объяснение:
При копировании формулы в ячейку D3 она примет вид =2*B$1+$B3/2.
Адреса ячеек превратились в другие, т.к. если перед буквой колонки (A, B, C...) или цифрой строки (1, 2, 3...) не стоит знак доллара ($), то, например, при перемещении на две колонны вправо и на две строки вниз адрес B3 превратится в D5 (B + 2 колонны = D, 3 + 2 строки = 5). Если стоит знак доллара перед буквой ($A1), то буква колонны не меняется при копировании формулы, если пред цифрой (A$1), то цифра не меняется при копировании формулы, если и перед цифрой, и перед буквой ($A$1), то адрес ячейки не будет меняться вообще.
Пример:
- при перемещении на две колонны вправо и на две строки вниз адрес B$3 превратится в D$3 (B + 2 колонны = D, 3 не меняется)
- при перемещении на две колонны вправо и на две строки вниз адрес $B3 превратится в $B5 (B не меняется, 3 + 2 строки = 5)
- при перемещении на две колонны вправо и на две строки вниз адрес $B$3 не изменится
«Девятый вал» - настоящий шедевр русской живописи и пожалуй, самая
известная картина великого художника-мариниста И. К. Айвазовского.
В
этой картине, как ни в какой другой, художник следует принципам
романтического искусства - он описывает среди разнообразия жизненных
явлений не типическое, а то, что выходит за пределы обыкновенного,
исключительное.
Полотно, написанное в 1850 году, завершает ранний период творчества живописца.
Айвазовский
показывает море, которое еще не успело успокоиться после неистового
ночного шторма, и людей, потерпевших крушение в океане. Золотые лучи
восходящего солнца освещают катящиеся волны. Самая большая из них –
девятый вал – снова готова обрушиться на людей.
Измученные
неравной борьбой со стихией, они пытаются спастись на деревянных
обломках мачты своего корабля. Всеми изобразительными средствами
Айвазовский подчеркивает величие моря и упорство людей. Но мы не видим
на картине ужаса катастрофы. Пусть неистовствует стихия и катятся
гигантские волны. Вера и мужество людей помогут им справиться с бедой.
С
замечательным мастерством и силой передано Айвазовским великолепие
волнующегося моря. На полотне все находится в движении, и море вместе с
вздымающимися и тяжело обваливающимися волнами кажется по-настоящему
«живым».
Художник использует самые яркие краски палитры. Верхняя
часть полотна написана в розовато-фиолетовых тонах – так окрашивают
небо, проходя через клубящиеся, похожие на туман, облака, первые лучи
солнца. Внизу – тревожное сине-зеленое море, гребни волн которого
переливаются всеми цветами радуги.
<span>Картина Айвазовского
«Девятый вал» – гимн мужеству человека, берущего верх над силами стихии,
сколь страшной, столь и великолепной в своем грозном величии.
</span>
Readln как и read вводит переменную командой read (x); также и readln (x); но перед этим надо в var внести переменную x
Очевидно архмв поврежден.
Либо архиватора нет =)
Если он все же есть, попробуй убедиться в том, что архив поврежден.
1.Запусти архиватор (просто саму программу)
2.Найди через программу файл с архивом и выдели его.
3.Нажми кнопку "Тестировать" или "Проверить" или что то в этом роде.
Если повалятся ошибки в появившемся окне, то архив порченый, если ни одной ошибки не появится, то проблема не в этом.