// PascalABC.NET 3.3, сборка 1549 от 17.10.2017 // Внимание! Если программа не работает, обновите версию!
begin var n:=ReadInteger('Количество строк в матрице:'); var m:=ReadInteger('Количество столбцов в матрице:'); Writeln('*** Исходная матрица [',n,',',m,'] ***'); var a:=MatrRandom(n,m,-99,99); a.Println(4); Writeln(4*a.ColCount*'-'); var (i,k):=(0,-1); foreach var c in a.Cols do if c.Where(e->e.IsEven).Count<5 then k:=i else i+=1; if k>=0 then begin Writeln('*** Матрица - результат [',n,',',m+1,'] ***'); SetLength(a,n,m+1); for var c:=a.ColCount-1 downto k+1 do a.SetCol(c,a.Col(c-1)); a.SetCol(k+1,ArrFill(a.RowCount,0)); a.Println(4) end else Writeln('Нет столбцов с количеством четных элементов, меньшим 5') end.
// PascalABC.NET 3.3, сборка 1549 от 17.10.2017 // Внимание! Если программа не работает, обновите версию!
begin var a:=ArrRandom(ReadInteger('n='),1,27); a.Println; var s:=a.Where((x,i)->i.IsEven); Writeln('Cумма элементов с нечетными номерами: ',s.Sum); Writeln('Произведение элементов с нечетными номерами: ', s.Aggregate(BigInteger(1),(x,y)->x*y)); end.
Пример n= 25 13 6 18 13 14 23 7 3 24 6 6 9 14 8 4 2 14 2 14 22 9 24 19 20 27 Cумма элементов с нечетными номерами: 183 Произведение элементов с нечетными номерами: 167343326631936
name, surname, patronymic : string;
begin
write('Введите фамилию: '); readln(surname);
write('Введите имя: '); readln(name);
write('Введите отчество: '); readln(patronymic);
writeln('Имя: ', name);
end.