<span>read - оставляет курсор после прочтения на этой же строке</span>
<span><span>readln - переводит курсор на следующую строку</span></span>
Var ch: char;
begin
write('Введите символ: '); read(ch);
writeln('Предыдущий символ: ', pred(ch), ' | ', 'Следующий символ: ', succ(ch));
<span>end.</span>
Киберспорт , Геймеры , Программисты
<em>// PascalABC.NET 3.2, сборка 1341 от 20.11.2016</em>
begin
var a:=ArrRandom(7,-20,20); a.Println;
a:=a.Select(x->abs(x)).ToArray; a.Println
end.
Пример
-9 17 6 1 20 9 -14
9 17 6 1 20 9 14