1. ромб, только стрелка вниз если условие сохраняется, стрелка в права, если условие нарушено, и слева приход при следующем цикле. (или наоборот) см рисунок
2. while i <= n do begin
write ('(*) ');
i := i + 1
end;
3. потому что необходимо перебрать всезначения от 1 до N
4. постановка задачи;математическая формализация; построение алгоритма; составление программы на языке программирования; отладка и тестирование программы; проведение расчетов и анализ полученных результатов.
5. описательная информационная модель записывается с какого-либо формального языка
6. отладка это испытание с исправлением ошибок, тест это окончательный прогон с конкретным значением данных для которых известен результат.
program one;
type TIntMassiv = array of real;
var a,b,c,x,y: TIntMassiv; n,i:integer;
begin
writeln('Введите длину массивов(n)');
readln(n);
setLength(a,n); // Создаем динамические массивы длины n
setLength(b,n);
setLength(c,n);
setLength(x,n);
setLength(y,n);
for i := 0 to n-1 do
begin
writeln('Введите ',i+1, ' массива a');
readln(a[i]);
writeln('Введите ',i+1, ' массива b');
readln(b[i]);
writeln('Введите ',i+1, ' массива c');
readln(c[i]);
end;
for i := 0 to n-1 do
begin
x[i] := MIN(a[i],b[i]) / 2;
y[i] := MIN(a[i],c[i]) / 2;
end;
for i := 0 to n-1 do
begin
writeln('x[',i,']=',x[i]);
writeln('y[',i,']=',y[i]);
end;
a := nil; //Освобождаем память
c := nil;
b := nil;
x := nil;
y := nil;
end.