procedure oddDec(var a,b:integer); //подпрограмме переданы аргументы a и b //процедура для вычитания в нечётном элементе begin; a:=a-b; end;
procedure NotoddInc(var a,b:integer); //подпрограмме переданы аргументы a и b //процедура для сложения в чётном элементе begin; a:=a+b; end;
begin randomize; readln(a); //ввод a readln(b); //ввод b writeln('Array:'); for i:=1 to 10 do //весь массив begin; ar[i]:=random(-20,80); //случайные числа от -20 до 80 включительно write(ar[i]:4); //вывод if odd(i) then oddDec(ar[i],b) else NotoddInc(ar[i],a); {если нечётное, то первая процедура, иначе вторая. Обращаю внимания на то, что элементы меняются сразу после вывода} end; writeln; writeln('Final array:'); //вывод получившегося массива for i:=1 to 10 do write(ar[i]:4); end.
Пример ввода: 20 10 Пример вывода: Array: 10 16 0 60 23 4 22 -20 4 55 Final array: 0 36 -10 80 13 24 12 0 -6 75
1. перетаскивание (из одного окна в другое, то есть из папки откуда в папку куда) 2. горячими клавишами (CTRL+C скопировать, или CTRL+X вырезать и CTRL+V вставить, в требуемое место, предварительно выбрав это место кликом) 3. через контекстное меню (там есть аналогичные пункты: "скопировать", "вырезать" и "вставить"... в некоторых случаях даже пункты "копировать в.." или "переместить в...") 4. через командную строку (путем написания команд "копирования" и "перемещения" с указанием путей... данный вариант может быть сохранен в виде исполняемого файла с расширением .bat для могоразовго и быстрого применения) 5. есть еще вариант копирования (в том числе резервного) с специальных программ и планировщика задач), но если это вопрос из теста школьной программы, то маловероятно что этот там рассматривается.
ответ: 107
Объяснение:
R = 3*(-7) = -21
M = 2*64 = 128
P = -21+128 = 107