1. дан одномерный массив размерностью 10, заполненный целыми числами, введенными с клавиатуры, и величина n. отрицательные элементы заменить на n. измененный массив вывести на экран одной строкой. 2. дан одномерный массив размерностью n, заполненный случайными числами в интервале от -15 до 20. вывести на экран значения элементов массива, абсолютное значение которых > 10. 3. дан одномерный массив размерностью n, заполненный случайными числами. каждый третий элемент массива возвести в квадрат, если элемент отрицательный. измененный массив вывести на экран.

149

459

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

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

KasiaW

Информатика

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

1) var a: array[1..10]of integer; i,n,k: integer; begin readln(n); for i: =1 to 10 do begin read(a[i]); if a[i]< 0 then a[i]: =n; end; for i: =1 to 10 do write(a[i],' '); end.2)var a: array[1..999999]of integer; i,n,s: integer; begin readln(n); for i: =1 to n do begin a[i]: =random(36)-15; write(a[i],' '); end; writeln; for i: =1 to n do if abs(a[i])> 10 then write(a[i],' '); end.3) var a: array[1..999999]of integer; i,n,s: integer; begin readln(n); for i: =1 to n do begin a[i]: =random(36)-15; write(a[i],' '); end; writeln; for i: =1 to n do begin if i mod 3 = 0 then if a[i]< 0 then a[i]: = a[i]*a[i]*a[i]; write(a[i],' '); end; end.