<u>// PascalABC.NET 3.3, сборка 1607 от 31.12.2017</u>
<u>// Внимание! Если программа не работает, обновите версию!</u>
begin
var n:=ReadInteger('Количество строк (столбцов) в массиве:');
Writeln('*** Исходный массив ***');
var a:=MatrRandom(n,n,10,99);
a.Println(3); Writeln(3*n*'-');
for var i:=0 to n-2 do
for var j:=i+1 to n-1 do a[i,j]:=0;
Writeln('*** Выходной массив ***'); a.Println(3)
end.
1.if (a mod 2)=o then write(a*a)
else write(a*a*a);
Автоматический (через заданное количество времени), и по щелчку
#использую язык программирования Python 3.5
a = []
m = 0
for i in range(4):
a.append(int(input())
for i in range(4):
m = m + a[i]
for i in range(4):
a[i] = a[i] * m
print(*a)