Question

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

Answer 1

//Вроде бы знакомый аватар...
//Соглашусь с предыдущим оратором, решается в 3 строки без циклов
//Pascal ABC.NET v3.0 сборка 1111
Const
 n=10;

var
 ar:array[1..n] of integer;
 sum,i:integer;
begin
randomize;
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.