Дан массив из 15 целых чисел из интервала от -5 до 15 Все элементы массива уменьшить **...

Question

Дан массив из 15 целых чисел из интервала от -5 до 15 Все элементы массива уменьшить на некоторое число a. Пожалуйста только правильно и чтоб она выводилось на экран

Comments

только на программе Pascal надо

Answer 1

// PascalABC.NET 3.3, сборка 1583 от 25.11.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var m:=ArrRandom(15,-5,15); m.Println;
  var a:=ReadInteger('a =');
  m.Transform(t->t-a); m.Println
end.

Пример
-2 14 -3 2 -4 6 1 -3 9 1 -4 -2 14 9 8
a = 5
-7 9 -8 -3 -9 1 -4 -8 4 -4 -9 -7 9 4 3

Comments

ну тут он сразу начинается с begin

---

а я хотел program const var begin end, и.т.д

---

const
n = 5;
var
a: array[-5..15] of integer;
i, p: integer;
begin
p := 1;
for i := 1 to n do
begin
a[i] := random(0, 10);
write(a[i], ' ');
if(odd (a[i])) then p -= a[i];
end;
writeln();
writeln(p);
end.

---

типо этого

---

и все

---

пж

---

помогите

---

плииз

Answer 2

Дан масиив 15:5=3 15х3=30 всё

Comments

пж мне на Pascal или Delphy

---

ты какой класс

---

10 класс