Ветвление — алгоритмическая конструкция, в которой, в зависимости от результата проверки условия («да» или «нет»), предусмотрен выбор одной из двух последовательностей действий (ветвей).
<em>// PascalABC.NET 3.2, сборка 1457 от 29.05.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
Writeln('*** Исходный массив ***');
var z:=MatrRandom(4,6,10,80);
z.Println(4); Writeln(4*z.ColCount*'-');
var t:=z.ElementsWithIndexes.MaxBy(x->x[2]);
Writeln('Максимальный элемент z[',t[0]+1,',',t[1]+1,']=',t[2])
end.
<u>Пример</u>
*** Исходный массив ***
47 18 64 34 29 42
68 55 80 68 44 34
15 51 43 75 32 52
21 38 36 48 58 69
------------------------
Максимальный элемент z[2,3]=80
program raf105;
var a:array[1..3,1..3] of integer;
i,j,sum:integer;
begin
writeln('Вводите 9 чисел по очереди:');
for i:=1 to 3 do
for j:=1 to 3 do
begin
readln(a[i,j]);
if (a[i,j] mod 4)=0
then sum:= sum+a[i,j]
end;
writeln('Сумма чётных элементов кратных четырём: ',sum);
end.
<u><em>Язык программирования PascalABC</em></u>