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

Заполнить массив из 12 элементов случайными числами в интервале [-12..12] и выполнить реверс для каждой трети массива. пример: исходный массив: 4 -5 3 10 -4 -6 8 -10 1 0 5 7 результат: 10 3 -5 4 -10 8 -6 -4 7 5 0 1 есть готовая программа. объясните что да как. const n=12; var a: array[1..n] of integer; i,k,x: integer; begin randomize; writeln('исходный массив'); for i: =1 to n do begin a[i]: =-12+random(25); write(a[i]: 4); end; writeln; k: =n div 3; for i: =1 to k div 2 do begin x: =a[i]; a[i]: =a[k-i+1]; a[k-i+1]: =x; x: =a[k+i]; a[k+i]: =a[2*k-i+1]; a[2*k-i+1]: =x; x: =a[2*k+i]; a[2*k+i]: =a[n-i+1]; a[n-i+1]: =x end; writeln('инверсия третей массива'); for i: =1 to n do write(a[i]: 4); end.

👇
Ответ:
Игорь12463
Игорь12463
05.08.2021
// PascalABC.NET 3.1, сборка 1200 от 13.03.2016
begin
  var a:=ArrRandom(12,-12,12); a.Println;
  var b:=a.Batch(a.Length div 3).Select(x->x.Reverse);
  var k:=0;
  foreach var e1 in b do
    foreach var e2 in e1 do begin a[k]:=e2; Inc(k) end;
  a.Println
end.

Тестовое решение:
-7 -9 8 -11 -5 -3 -2 6 11 -7 4 -6
-11 8 -9 -7 6 -2 -3 -5 -6 4 -7 11
4,4(47 оценок)
Открыть все ответы
Ответ:
huesosoff2016
huesosoff2016
05.08.2021
Биология:
1) Кит - это млекопитающее (истина)
2) Все клетки имеют ядро (ложь)

География: 
1) Франция располагается на материке Евразия (истина)
2) Крым принадлежит Украине (ложь)

Информатика:

1) В двоичной системе счисления используются тольку нули и единицы (истина)
2) В одном гигабайте 200 мегабайт (ложь)

История:
1) Великая Октябрьская революция произошла 25 октября (7 ноября) 1917 года (истина)
2) Вторая мировая война началась в 1941 году (ложь)

Математика:

1) Число, возведенное в четную степень, всегда будет положительно (истина)
2) Два умножить на три равно десять

Литература:

1) Произведение "Отцы и дети" принадлежит перу Тургенева (истина)
2) Одна из значимых героинь поэмы "Мертвые души" - Анна Каренина (ложь)
4,7(31 оценок)
Ответ:
неха4уха
неха4уха
05.08.2021
ПРЕДМЕТ:
ИСТИНА ; ЛОЖЬ

Биология:
Основатель второй теории эволюции - Чарльз Дарвин;
Человек принадлежит к отряду Высших обезьян

География:
Самая густонаселенная страна мира - Монако;
У КНДР самая большая площадь в мире

Математика:
16 - это 2⁴;
площадь треугольника вычисляется по формуле a*b*c*h - где a,b,c - стороны, а h - высота

Литература:
Роман-эпопея "Война и Мир", написанная Л.Н. Толстым,основывается на реальных событиях...;
"Горе от ума" - трагедия, в которой герой осваивает основы светской жизни

Информатика:
пример конъюнкции: 1 && 1 = 1;
пример конъюнкции:  0 && 1 = 1
4,6(67 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ