М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
dadamuhamedovag
dadamuhamedovag
21.07.2021 04:54 •  Информатика

Қайталанатын бөліктер. 1-сабақ Сәйкестендір.
Кескінді
толығымен
белгілеу үшін
АЙНАЛДЫРУ
құралының
ТІГІНЕН АУДАРУ
параметрін
қолдану керек
Нысанды кері
бағытта аудару
үшін
БӨЛЕКТЕУ
құралының
БӘРІН БӨЛЕКТЕУ
параметрін
таңдау керек
БӨЛЕКТЕУ
құралының
МӨЛДІРЛІКТІ
ТАҢДАУ
параметрін
таңдау керек
Нысанды төңкеру
үшін
Бөлікті еңсіз
белгілеу үшін
АЙНАЛДЫРУ
құралының
КӨЛДЕНЕҢІНЕН
АУДАРУ
параметрін
Қолдану керек
С Тексеру​

👇
Открыть все ответы
Ответ:
Topxic
Topxic
21.07.2021

Sub Strange()

   Dim r As Range, a As Variant, b As Variant, e As Variant, Max As Variant

   Set r = Selection

   a = r

   Max = -1E+100

   For Each e In a

       If e < 0 And e > Max Then

           Max = e

       End If

   Next

   Dim i As Integer, j As Integer

   b = a

   j = LBound(b, 2) - 1

   For i = LBound(a, 2) To UBound(a, 2)

       If a(1, i) = Max Then

           j = j + 1

           b(1, j) = i

       End If

   Next

   Set r = Range(Cells(2, 1), Cells(2, j))

   Rows(2).Clear

   r = b

End Sub


Сформировать одномерный массив, состоящий из положительных, отрицательных и нулевых элементов. испол
4,6(73 оценок)
Ответ:
dashapendus2003
dashapendus2003
21.07.2021

PascalABC.NET

begin

 var a := ArrRandom(4, -10, 20);

 a.Println;

 // ищем j - позицию первого неотрицательного элемента

 var j := -1;

 for var i := 0 to a.High do

   if a[i] >= 0 then // нашли

   begin

     j := i;

     break

   end;

 if j > -1 then

 begin

   for var i := j + 1 to a.High do

     if a[i] < 0 then

     begin

       for var k := i downto j + 1 do

         Swap(a[k], a[k-1]);

       j += 1;

       if j >= a.High then break;

     end;

     a.Println

 end

 else

   Println('Нет положительных элементов')

end.

4,8(65 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ