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

163

204

Посмотреть ответы 2

Ответы на вопрос:

Igrilla19990

Информатика

4,6(81 оценок)

//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 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