// PascalABC.NET 3.3, сборка 1590 от 03.12.2017 // Внимание! Если программа не работает, обновите версию!
begin Writeln('*** Исходный массив ***'); var c:=MatrRandom(3,5,-9,9); c.Println(4); Writeln(4*c.ColCount*'-'); Writeln('Произведение элементов: ', c.ElementsByRow.Aggregate(int64(1),(x,y)->x*y)); Writeln('*** Массив-результат ***'); c.Transform(t->t*t); for var i:=0 to c.RowCount-1 do c[i,i]:=1; c.Println(4) end.
begin randomize; writeln('Массив: '); for i:=1 to 20 do A[i]:=random(21)-10; for i:=1 to 20 do write(A[i]:5); writeln; writeln('Каждый пятый эелемент массива: '); for i:=1 to 20 do if i mod 5 = 0 then write(A[i]:5); end.
2. var x,i: integer; A: array [1..20] of integer;
begin randomize; writeln('Массив: '); for i:=1 to 20 do A[i]:=random(11);for i:=1 to 20 do write(A[i]:5); writeln; writeln('Натуральные числа в диапазоне [5..10]: '); for i:=5 to 10 do write(A[i]:5); writeln; x:=1; writeln('Их произведение: '); for i:=5 to 10 do x:=A[i]*x; write(x:5); end.
// Внимание! Если программа не работает, обновите версию!
begin
Writeln('*** Исходный массив ***');
var c:=MatrRandom(3,5,-9,9);
c.Println(4); Writeln(4*c.ColCount*'-');
Writeln('Произведение элементов: ',
c.ElementsByRow.Aggregate(int64(1),(x,y)->x*y));
Writeln('*** Массив-результат ***');
c.Transform(t->t*t);
for var i:=0 to c.RowCount-1 do c[i,i]:=1;
c.Println(4)
end.
Пример
*** Исходный массив ***
-7 -3 4 -1 -5
9 1 9 2 4
-3 -3 -1 -4 -8
Произведение элементов: -78382080
*** Массив-результат ***
1 9 16 1 25
81 1 81 4 16
9 9 1 16 64