Заполнить массив из 15 элементов числами из диапозона от -10 до 10 и вывести в строчку .повторно в строчку заменнив элементы массива не большие 3 их кубами.

273

422

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

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

dikushant

Информатика

4,4(33 оценок)

Program n1; const n=15; var a: array[1..n] of integer; i: integer; begin randomize; writeln('исходный массив: '); for i: =1 to n do begin a[i]: =random(21)-10; write(a[i],' '); if a[i]< =3 then a[i]: =sqr(a[i])*a[i]; end; writeln; writeln('полученный массив: '); for i: =1 to n do write(a[i],' '); end.