<em>// PascalABC.NET 3.2, сборка 1338 от 16.11.2016</em>
begin
var b:=ArrRandom(10,-10,10); b.Println;
Writeln('Сумма элеменов массива равна ',b.Sum);
Writeln('Количество четных чисел равно ',b.Count(x->x.IsEven))
end.
Пример
1 10 3 -4 -10 -1 -6 0 -4 9
Сумма элеменов массива равна -2
Количество четных чисел равно 6
===== PascalABC.NET =====
begin
var x := 12.0;
while x <= 15.1 do
begin
var y := Sin(x) - x ** 2;
Writeln(x:4:1, y:16:9);
x += 0.2
end;
end.
Несложно заметить, что по столбцам значения увеличиваются с каждой строкой на 11. Также несложно заметить, то по строке с каждым столбцом значение уменьшается на 10.
Многоточием отмечены еще три столбца.
Для каждой ячейки верна формула a[I,j]=11(I-1)-10(j-1) i=1..7, j=1..7