Задание:
Дан массив целых чисел C (20) все нечетные элементы заменить на кубы sqr (A[ i]*A [ i ].
Решение:
const N=20; var a: array[1… N] of integer; i: integer; begin for i: =1 to N do begin a[i]: =random (10); write (a[i], '); end; writeln; writeln; for i: =1 to N do begin if (a[i] mod 2 <> 0) then a[i]: =sqr (a[i])*a[i]; write (a[i], '); end; end.
Знаете другой ответ?