Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

8. Моделирование текстового редактора.
Паскаль АВС
Напишите процедуру Save с параметрами: сохраняемый массив, количество строк в массиве, имя файла для сохранения. Перед вызовом процедуры обеспечьте диалог с пользователем для выбора имени файла.

Ответ оставил Гость

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);
end.