Question

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

Answer 1

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.