Помогите с инфой 1)создать массив 14 эл-тов значение которых от -5 до 5 2)создать...

Question

Помогите с инфой
1)создать массив 14 эл-тов значение которых от -5 до 5
2)создать массив 10 слов
3)создать массив 7 эл-тов значение которых будут символы введенные с клавиатуры

Answer 1

Program massivy;
var array1: array [1..14]  of integer;
    array2: array [1..10]  of string;
    array3: array [1..7]  of string;
    i, b:integer;
begin
  for i:= 1 to 14 do
    array1[i]:=random(-5, 5);
  for i:= 1 to 10 do
    array2[i]:='Слово';
  for i:=1 to 7 do
    readln(array3[i]);
end.