<em>// PascalABC.NET 3.2, сборка 1482 от 12.06.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
Writeln('*** Исходный массив ***');
var a:=MatrRandom(3,4,-99,99);
a.Println(4); Writeln(4*a.ColCount*'-');
var s:=a.ElementsWithIndexes.Where(z->z[0]<0);
if s.Count=0 then Writeln('Нет отрицательных элементов')
else begin
Write('Отрицательные элементы: ');
s.Select(x->Format('a[{0},{1}]',x[1]+1,x[2]+1)).Println
end
end.
<u>Пример</u>
*** Исходный массив ***
-62 13 -44 78
-19 73 92 -61
47 -13 3 43
----------------
Отрицательные элементы: a[1,1] a[1,3] a[2,1] a[2,4] a[3,2]
6+1=7
7+1=8
8*2=16
16*2=32
32+1=33
Итого: 22112
5+1=6
6*2=12
12*2=24
Итого: 211
черный маленький квадрат
красный большой круг
каждое слово заменяется более-менее противоположенным
поскольку в описании каждой фигуры 3 слова изменяются 3 признака
Можешь взять мой маленький кусочек информации как дополнение.
<span>
Во время работы компьютера исполняемая программа и данные, обрабатываемые этой программой, хранятся во внутренней памяти. При отключении компьютера от сети информация из оперативной памяти исчезает.
Для хранения полученных результатов обработки и программ необходимо сохранение их в долговременной внешней памяти, которая не зависит от электропитания компьютера.
</span>