Заполнить массив из 15 элементов случайным образом целыми значениями, лежащими в диапазоне от 2 до 23. найти сумму квадратов всех элементов массива. Увеличить все элементы на последний элемент.
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(2,23); write(ar[i]:4); sum:=sum sqr(ar[i]); end; writeln; writeln('Sum=',sum); writeln('Final array:'); for i:=1 to n do begin ar[i]:=ar[i] ar[n]; write(ar[i]:4); end; end.
Пример работы программы: First array: 19 21 10 13 7 13 9 2 22 20 10 7 17 7 22 Sum=3229 Final array: 41 43 32 35 29 35 31 24 44 42 32 29 39 29 44
более месяца назад
Ваш ответ:
Вы можете из нескольких рисунков создать анимацию (или целый мультфильм!). Для этого нарисуйте несколько последовательных кадров
и нажмите кнопку Просмотр анимации.
