найти сумму элементов массива состоящего из 10 элементов. Элементы массива згенерировать в диапазоне от 50 до 100. Решить с одним for!

//Вроде бы знакомый аватар...//Соглашусь с предыдущим оратором, решается в 3 строки без циклов//Pascal ABC.NET v3.0 сборка 1111Const n=10;var ar:array[1..n] of integer; sum,i:integer;beginrandomize;for i:=1 to 10 do begin;  ar[i]:=random(50,100);  sum+=ar[i];  write(ar[i]:4); end;writeln;write('Sum=',sum);end.