Всистеме программирования pascal abc составьте программы для создания изображений
! !

231

500

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

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

Loooooper

Информатика

4,7(95 оценок)

Const n = 12; var a: array[1..12] of integer; i: integer; begin write('исходный массив: '); for i: = 1 to n do begin a[i]: =random(31)-20; write(' ',a[i]) end; writeln; write('номера отрицательных элементов: '); for i: = 1 to n do if a[i] < 0 then write(' ',i) end.