1. количество единиц среди элементов массива. заполнение массива произвести с клавиатуры. 2. ко всем отрицательным элементам массива прибавить первый элемент. заполнение массива произвести случайными целыми числами из [ -6,6]

130

477

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

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

miaamkom1

Информатика

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

Const n = 13; var a: array[1..n] of integer; i,k: integer; begin k: =0; write('введите массив a(',n,'): '); for i: = 1 to n do begin read(a[i]); if a[i] = 1 then k: =k+1 end; writeln('количество единиц: ',k); end. const n = 13; var a: array[1..n] of integer; i: integer; begin randomize; write('исходный массив: '); for i: = 1 to n do begin a[i]: =random(13)-6; write(' ',a[i]); if a[i] < 0 then a[i]: =a[i]+a[1] end; writeln; write('новый массив: '); for i: = 1 to n do write(' ',a[i]) end.