Есть ответ 👍

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

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

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


//pascal abc.net v3.1 сборка 1219 const   n=10;   var   ar: array[1..n] of integer;   sum,i: integer; begin   randomize;   writeln('first array: ');   for i: =1 to n do   begin     ar[i]: =random(-50,50);     write(ar[i]: 4);     sum: =sum+ar[i];   end;   writeln;   writeln('sum=',sum);   writeln('final array: ');   for i: =1 to n do   begin     ar[i]: =ar[i]*5;     write(ar[i]: 6);   end; end. пример работы программы: first array:   24   45   28   40 -48   -7   29   43 -23   18 sum=149 final array:     120   225   140   200   -240   -35   145   215   -115     90

Диаграмма и файл эксель-2003 во вложении.

Популярно: Информатика