Данное свойство алгоритма называется дискретность.
Program NoName;
Var i,n,sum: integer;
a:array[1..9999] of integer;
Begin
sum:=0;
Write ("Количество элементов массива = ");
Read (n);
For i:=1 to n do
Begin
Writeln(a[i]);
End;
Writeln ;
For i:=1 to n do
Begin
If a[i] < 20 then
a[i] := a[i] * 3;
sum:=sum + a[i];
Writeln(a[i]);
End;
Write (sum);
End.
Я проверила, у меня в паскале все правильно. Название программы восхитительное:)))
1 операция - 5 · 2 = 10
2 операция - x + 10
3 операция - 2 · x
4 операция - (2 · x) - 3
5 операция - ((2 · x) - 3) · 2
6 операция - x + 10 - (((2 · x) - 3) · 2)
7 операция - (x + 10 - (((2 · x) - 3) · 2)) / 5
<h2>Итого</h2>
7 операций