1.1 Пользователь должен нажать клавишу "Пробел".
1.2 Программа не завершится, т.к. в скрипте есть значе
Примеры алгоритмов.( если нужен пример программы обратитесь в ЛС).
1- Ветвление.
If a>=0 then
S:=S+a
else
S:=S-a;
2- "С повтором" или циклический.
For i:=1 to 6 do
S+1;
или
while i<5 do
i:=i+1;
3-Линейный.
S:= a;
i:=S+z; и.т.д. (Не имеется циклов)
Предлагаю вариант в Excel
щелкая мышью треугольнички фильтра можно управлять таблицей
Var i:Integer;
A:array[1..10] of Integer ;
Begin
For i:=1 to 10 do begin
A[i]:=random(26)-5;
Write(A[i], ' ') ;end;
Writeln;
For i:=1 to 10 do begin
If A[i]<0 then A[i]:=abs(A[i])
Else A[i]:=-A[i];
Write(A[i], ' ') end;
End.