Const N = 13; Var A,B:array[1..N] of integer; i,j:integer; Begin Write('Исходный массив: '); For i:= 1 to N do Begin A[i]:=random(50); Write(A[i]:3) End; WriteLn; Write('Переработанный массив:'); j:=0; For i:= 1 to N do if A[i]>=15 then Begin j:=j+1; B[j]:=A[i] End; For j:= 1 to j do Write(B[j]:3) End.
// PascalABC.NET 3.1, сборка 1172 от 19.02.2016 begin var s:=ReadInteger('n=').ToString.JoinIntoString(''); Writeln('Цифр в числе- ',s.Length); Writeln('Сумма цифр- ',s.Select(d->Integer.Parse(d)).Sum); Writeln('Последняя цифра- ',s.Last); Writeln('Первая цифра- ',s.First); Writeln('Предпоследняя цифра- ',s[s.Length-1]); var m:=ReadInteger('m='); Write('Сумма ',m,' последних цифр числа- '); Writeln(s.Skip(s.Length-m).Select(d->Integer.Parse(d)).Sum); Write('Цифра 3 в запись числа '); if Pos('3',s)>0 then Writeln('входит') else Writeln('не входит'); Writeln('Число в обратном порядке- ',s.Reverse.JoinIntoString('')); Writeln('Перестановка первой и последней цифр- ', s.Last+Copy(s,2,s.Length-2)+s.First); end.
Тестовое решение: n= 1063 Цифр в числе- 4 Сумма цифр- 10 Последняя цифра- 3 Первая цифра- 1 Предпоследняя цифра- 6 m= 2 Сумма 2 последних цифр числа- 9 Цифра 3 в запись числа входит Число в обратном порядке- 3601 Перестановка первой и последней цифр- 3061
Yurevich1243
10.08.2021
Два - по возрастанию и убыванию, Можно выполнять сортировку данных по тексту (от А к Я или от Я к А), числам (от наименьших к наибольшим или от наибольших к наименьшим), а также датам и времени (от старых к новым или от новых к старым) в нескольких столбцах. Можно также выполнять сортировку по настраиваемым спискам (таким как состоящий из элементов "Большой", "Средний" и "Маленький") или по формату, включая цвет ячеек, цвет шрифта, а также по значкам. Большинство сортировок применяются к столбцам, но возможно также применить сортировку к строкам.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Допустим имеется одномерный массив, содержащий числа от 0 до 49 включительно.требуется исключить из него все элементы, значения которых меньше 15.
Var
A,B:array[1..N] of integer;
i,j:integer;
Begin
Write('Исходный массив: ');
For i:= 1 to N do
Begin
A[i]:=random(50);
Write(A[i]:3)
End;
WriteLn;
Write('Переработанный массив:');
j:=0;
For i:= 1 to N do
if A[i]>=15 then
Begin
j:=j+1;
B[j]:=A[i]
End;
For j:= 1 to j do
Write(B[j]:3)
End.
Пример:
Исходный массив: 29 8 19 3 0 11 39 9 34 4 45 15 3
Переработанный массив: 29 19 39 34 45 15