Question

Создайте программу которая заполняет массив из 15 элементов случайными целыми числами в диапазоне от 1 до 100 , а затем преобразовывает уменьшая на 5.

Answer 1

Var
  m : array[1..15] of Integer;
  i : Byte;
Begin
  For i:=1 to 15 do
  Begin
     m[i]:=Random(100)+1;
     Write(m[i]:10);
   m[i]:=m[i]-5;
    Writeln(m[i]:10);
  end;
end.