Необходимо дописать код для создания элементарного меню, на подобии командной строки. Например: Введите 1, что бы ввести данные в массив или Введите 4 для выхода их программы.
Изначальный код:
program lab13;
var imya:array[1..5] of string;
fam:array[1..5] of string;
god:array[1..5] of integer;
i: integer;
begin
write('Работа с БД(имя, фамилия и год)');
for i:=1 to 5 do
begin
read(imya[i]);
read(fam[i]);
read(god[i]);
end;
for i:=1 to 5 do
begin
write(imya[i]);
write(fam[i]);
write(god[i]);
end;
end.

sirkirik2016    2   10.04.2020 11:29    0