Допустим, вы хотите создать модель учебного процесса в вашей группе. Подумайте, какие вам потребуются данные. А потом перед вами поставили задачу смоделировать процесс летнего отдыха, например, коллективной поездки на турбазу. Подумайте, какие вам потребуются данные для решения новой задачи.
Подумайте, какие данные будут общими для этих двух моделей.
handsfree = false;
var
a: array[1..100] of integer;
i, n: integer;
begin
{ввод массива}
if handsfree then
n := random(20) + 5
else begin
write('n = ');
readln(n);
end;
writeln('Данные массива:');
for i := 1 to n do
begin
if handsfree then begin
a[i] := random(100) - 50;
write(a[i], ' ');
end
else readln(a[i]);
end;
writeln();
{изменение элементов}
writeln('Вывод прямой:');
for i := 1 to n do
write(a[i], ' ');
writeln();
{изменение элементов}
writeln('Вывод обратный:');
for i := n downto 1 do
write(a[i], ' ');
end.