// PascalABC.NET 3.2, сборка 1374 от 10.01.2017 // Внимание! Если программа не работает, обновите версию!
begin var m:=ReadInteger('Количество строк в матрице:'); var n:=ReadInteger('Количество столбцов в матрице:'); var k:=ReadInteger('Номер строки для подсчета:'); Writeln('*** Исходная матрица [',m,',',n,'] ***'); var a:=MatrRandom(m,n,-50,50); a.Println(4); Writeln(4*a.ColCount*'-'); var b:=a.Row(k-1); Writeln('Сумма элементов в выбранной строке: ',b.Sum); Writeln('Произведение элементов в выбранной строке: ', b.Aggregate(BigInteger(1),(x,y)->x*y)) end.
i: integer;
ar: array[1..10]of integer;
begin
for i := 1 to 10 do read(ar[i]);
for i := 1 to 10 do if(i mod 2 = 0) then write(ar[i],' ')
end.