Cоставьте программу уменьшения значения всех элементов массива на 4

Прост2004 Прост2004    3   18.09.2019 19:40    3

Ответы
АндрейПермь123 АндрейПермь123  08.10.2020 00:40
// PascalABC.NET 3.3, сборка 1634 от 14.02.2018
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;
  a.Transform(t->t-4); a.Println
end.

Пример
n= 13
-42 -19 36 37 -26 -28 12 12 40 50 24 -8 5
-46 -23 32 33 -30 -32 8 8 36 46 20 -12 1
ПОКАЗАТЬ ОТВЕТЫ
monyachina1081p08tm7 monyachina1081p08tm7  08.10.2020 00:40
Program MASSX;

var
  mass : array [0..10] of integer;
  i, b : integer;

begin
  b := 10;
  randomize;
 
  for i := 1 to b do
    begin
      mass[i] := random(10, 110);
      mass[i] := mass[i] - 4;
      writeln(mass[i]);
    end;
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика