В последнем выражении для 1/2 скобки лишние
Const
n=5;
type
ta=array[1..n] of string;
var ar:ta;i:integer;
path:string;
procedure Save(ar:ta;n:integer;path:string);
var i:integer;
f:text;
begin;
assign(f,path);
rewrite(f);
for i:=1 to n do
writeln(f,ar[i]);
close(f);
end;
begin;
writeln('Введите массив:');
for i:=1 to n do
readln(ar[i]);
writeln('Введите путь к файлу:');
readln(path);
Save(ar,n,path);
<span>end.</span>
// PascalABC.NET 3.3, сборка 1576 от 16.11.2017
// Внимание! Если программа не работает, обновите версию!
begin
var t:= ReadlnString('Введите строку').Where(i -> (i >= '0')and(i <= '9')).JoinIntoString('');
Write('Строка чисел: ');
t.Println();
end.
Шифр Цезаря: это вместо буквы нужно взять следующую за ней, например, слово яблоко будет так: авмплп.
Получение целых чисел из диапазона [50, 100]:
random(51)+50