Не знаю, есть ли в PascalABC для этого какие-либо особые инструменты (давно уже на нем не кодил), но могу привести общие для любого языка программирования.
Пусть есть двумерный массив с размерами
- кол-во столбцов и строк соответственно.
1) Вручную
Не самый лучший вариант с ростом кол-ва элементов
2) Вложенные циклы for
Первый перебираем от 0 до N-1 (переменная j)
Второй, вложенный в первый, перебираем от 0 до M-1(переменная i)
Внутри - условие: если (i == M-j-1), то ставим 1, иначе - 0.
Рисунок - в прилагаемом файле.
Решение:
K0+K1+K2+K3+K4+K5+K6+K7 = 1000
K1+K2+K4+K5 = 450
K2+K3+K5+K6 = 350
K4+K5+K6+K7 = 200
K4+K5 = 80
K2+K5 = 50
K5+K6 = 30
K5 = 5
K1+K2+K3+K4+K5+K6+K7 - ?
К2 = К2+К5 - К5 = 50-5 = 45
К4 = К4+К5 - К5 = 80-5 = 75
К6 = К5+К6 - К5 = 30-5 = 25
К1 = (К1+К2+К4+К5) - (К2+К4+К5) = 450-(45+75+5) = 325
К3 = (К2+К3+К5+К6) - (К2+К5+К6) = 350-(45+5+25) = 275
К7 = (К4+К5+К6+К7) - (К4+К5+К6) = 200-(75+5+25) = 95
K0 = (К0+К1+К2+К3+К4+К5+К6+К7)-(К1+К2+К3+К4+К5+К6+К7) =
1000-(325+45+275+75+5+25+95) = 155
K1+K2+K3+K4+K5+K6+K7 = (К0+К1+К2+К3+К4+К5+К6+К7)-К0 =
= 1000-155 = 845
Ответ: 845
В Интернете используются два основных понятия: адрес и протокол. Свой
уникальный адрес имеет любой компьютер, подключенный к Интернету. Даже
при временном соединении компьютеру выделяется уникальный адрес. В любой
момент времени все компьютеры, подключенные к Интернету, имеют разные
адреса. Так же, как почтовый адрес однозначно определяет местонахождение
человека, адрес в Интернете однозначно определяет местонахождение
компьютера в сети.
<span>1. Если это Паскаль, то каждый оператор должен оканчиваться точкой с запятой. Тут ни один так не оканчивается.
2. Прочие ошибки.
a. В=А - должен быть знак присваивания, т.е. B:=A;
b. S+2=4.25 - должен быть знак присваивания := вместо =
Кроме этого, в левой части оператора присваивания должно быть имя, а не выражение.
c. R=A : B-1.78 - </span><span><span>должен быть знак присваивания := вместо =
Кроме этого, знак ":" не может встречаться в арифметическом выражении.
</span>d. If a then b:=0 - верен, если a имеет тип boolean
e. A:=D:=C - кратное присваивание недопустимо
f. If a=0 then b:=0 - верен, если а имеет числовой тип.</span>
И вниз..жесткий диск, процессор, оперативная память