Заполнить массив из 15 элементов случайным образом вещественными значениями, лежащими в диапазоне от 22 до 23. Найти произведение всех элементов массива. Увеличить все элементы на число b.
Var ar:array[1..n] of integer; pro,i,k:uint64; begin randomize; pro:=1; writeln('First array:'); for i:=1 to n do begin ar[i]:=random(22,23); //Серьёно? write(ar[i]:4); pro:=pro*ar[i]; end; writeln; writeln('Pro=',pro); write('Enter value:'); readln(k); writeln('Final array:'); for i:=1 to n do begin ar[i]:=ar[i] k; write(ar[i]:6); end; end.
Пример работы программы: First array: 23 23 22 22 22 22 23 23 23 22 23 22 22 23 23 Pro=10868183115618730368 Enter value:3 Final array: 26 26 25 25 25 25 26 26 26 25 26 25 25 26 26
более месяца назад
Ваш ответ:
Вы можете из нескольких рисунков создать анимацию (или целый мультфильм!). Для этого нарисуйте несколько последовательных кадров
и нажмите кнопку Просмотр анимации.
