Как описать переменные для хранения следующей информации? маcсив 5 11 6 0 91 3 -12 2 14 1 219 7

Если хотите нумеровать элементы, начиная с единицы, то: var m: array[1..3,1..4] of integer;

// pascalabc.net 3.0, сборка 1088 const   cu='абвгдеёжзийклмнопрстуфхцчшщъыьэюя';   cl='абвгдеёжзийклмнопрстуфхцчшщъыьэюя'; var   s: string;   i,p: integer; begin   write('введите строку: '); readln(s);   for i: =1 to length(s) do begin       p: =pos(s[i],cu);       if p> 0 then s[i]: =cl[p]   end;   write('перекодировано: ',s) end. тестовое решение: введите строку: -в чащах юга жил бы фикус? -да, но фальшивый экземпляр! перекодировано: -в чащах юга жил бы фикус? -да, но фальшивый экземпляр!

Var   number: real;   p, k, i, s,c: integer;   str1, str2: string; begin   readln(number);                                                                     str(number, str1);   str2: = copy(str1, pos('.', str1)+1, 3);   val(str2,k,c);   s: = 0;   while (k < > 0) do   begin       s: = s + (k mod 10);       k: = k div 10;   end;     writeln(s); end.