Задание 13 Урок 15. Одномерные массивы

Урок 15. Одномерные массивы

{15 - 13 Напишите функцию, которая принимает на вход целое число N и возвращается строку,
содержащую арифметическое выражение вида:
a1 # a2 # ..... # aN
Где:
a1, a2,.., aN -- случайные числа из диапазона от 1 до 100
# - один из случайных знаков (*, +, -)}

function rndString(n:integer):string;
var i:integer;
    CharArr: array of char;
begin
  CharArr := ['*', '+', '-'];
  randomize;
  for i:=1 to n do
    write( random(100), ' ' , CharArr[random(3)] , ' ' );
end;

begin
  writeln('random string: ');
  rndString(11);
  readln();
end.

//random string:
//6 - 98 * 16 * 27 + 91 - 40 * 69 * 87 + 70 - 65 - 29 -