el-dent12
?>

Допустим имеется одномерный массив, содержащий числа от 0 до 49 включительно.требуется исключить из него все элементы, значения которых меньше 15.

Информатика

Ответы

abdulhakovalily22
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.

Пример:
Исходный массив:       29  8 19  3  0 11 39  9 34  4 45 15  3
Переработанный массив: 29 19 39 34 45 15
Сайжанов
// 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
Два - по возрастанию и убыванию,
Можно выполнять сортировку данных по тексту (от А к Я или от Я к А), числам (от наименьших к наибольшим или от наибольших к наименьшим), а также датам и времени (от старых к новым или от новых к старым) в нескольких столбцах. Можно также выполнять сортировку по настраиваемым спискам (таким как состоящий из элементов "Большой", "Средний" и "Маленький") или по формату, включая цвет ячеек, цвет шрифта, а также по значкам. Большинство сортировок применяются к столбцам, но возможно также применить сортировку к строкам.

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Допустим имеется одномерный массив, содержащий числа от 0 до 49 включительно.требуется исключить из него все элементы, значения которых меньше 15.
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

Natalimis416024
Энверович
ludakamasana
PushkinaKurnosov984
khvorykhphoto
misterdre9991
Sergei_sergei
rakitinat8
dzo-dzo
dearmaria
Xeniya91
skalegin68
Petrovich
Rafigovich1267
elena