Пронумеруем программы:
1 - <span>умножить на 2
2 - </span><span>прибавить 1
</span>1. из числа 1 число 5
1 +1 = 2 (2)
2 * 2 = 4 (1)
4 + 1 = 5 (2)
Алгоритм: 212
2. из числа 1 число 50
1 + 1 = 2 (2)
2 + 1 = 3 (2)
3 * 2 = 6 (1)
6 * 2 = 12 (1)
12 * 2 = 24 (1)
24 + 1 = 25 (2)
25 * 2 = 50 (1)
Алгоритм: 2211121
2. из числа 1 число 99
1 + 1 = 2 (2)
2 + 1 = 3 (2)
3 * 2 = 6 (1)
6 * 2 = 12 (1)
12 * 2 = 24 (1)
24 * 2 = 48 (1)
48 + 1 = 49 (2)
49 * 2 = 98 (1)
98 + 1 = 99 (2)
Алгоритм: 221111212
Не real, а read:
for i:=1 to 10 do
read(A[i]);
Сколько раз вы выводите массив?
Потому что это что-то непонятное:
for i:=1 to 10 do
writeln (A[1],' ',A[2],' ',A[3],' ',A[4],' ',A[5],' '); (10 раз выводятся первые 5 элементов(?))
writeln (A[6],' ',A[7],' ',A[8],' ',A[9],' ',A[10],' ');
Если нужно вывести массив 1 раз:
for i:=1 to 10 do
writeln (A[i],' ');
Техника
Компьютер
Телефон
Животные
Собака
Люди
Человек
1) Если а>0 и b>0, то с=а+b=2+5=7
2) Если a>0 не выполняется и b>0 не выполняется, то с=0
Потому-что оставшаяся память резервируются под программы для более быстрого запуска