cформировать одномерный массив из 15 элементов с помощью случайных чисел, получить новый массив каждый элемент, которого равен кубу соответствующего элемента исходного массива, в полученном массиве вывести элементы стоящие на нечетных местах. Напишите, пожалуйста программу на языке Pascal

Есть ответ
17.12.2022
483

Ответ


var A:array[1..15] of integer; i:integer;begin randomize; for i := 1 to 15 do

 writeln('Исходныйы массив:'); begin   A[i] := random(21) - 10;   write(A[i], ' ');   A[i] := A[i] * A[i] * A[i]; end; writeln;

  writeln;

writeln('Нечетные элементы преобразованного массива') i := 1; while i


Если вы нашли правильное решение, вы можете поблагодарить нас начиная с 10 рублей.
Просто нажмите на кнопку "Подарить".
17.12.2022
Этот сайт использует cookies (Политика Cookies). Вы можете указать условия хранения и доступ к cookies в своем браузере.