Заполнить массив из 15 элементов случайным образом вещественными значениями, лежащими в...

Question

Заполнить массив из 15 элементов случайным образом вещественными значениями, лежащими в диапазоне от 5 до 15. Найти сумму шести первых элементов массива. Увеличить все элементы на 7 раз.

Answer 1

//Pascal ABC.NET v3.1 сборка 1219

Const
 n=15;

 Var
 ar:array[1..n] of integer;
 i,sum:integer;
begin
 randomize;
 writeln('First array:');
 for i:=1 to n do
  begin
   ar[i]:=random(5,15);
   write(ar[i]:4);
   if i<=6 then<br>   sum:=sum+ar[i];
  end;
 writeln;
 writeln('Sum=',sum);
 writeln('Final array:');
 for i:=1 to n do
  begin
   ar[i]:=ar[i]*7;
   write(ar[i]:6);
  end;
end.

Пример работы программы:
First array:
   9  15   5  12  13   6  11   7   6  14  13   6   6  10  11
Sum=60
Final array: 
   63   105    35    84    91    42    77    49    42    98    91    42    42    70    77