Написать проги 1. замените все элементы массива целых чисел с(n) на противоположные по знаку 2. найти произведение элементов массива целых чисел а(n), меньших 3 3. в линейный массив вещественных чисел на к-тое место вставить элемент, равный среднему арифметическому элементов массива

226

377

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

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

Gogogogh

Информатика

4,5(70 оценок)

1.var a: array[1..100] of integer; n,s,i: integer; begin write('количество элементов='); readln(n); for i: =1 to n do begin readln(a[i]); end; for i: =1 to n do begin if a[i]> 0 then a[i]: =-a[i] else a[i]: =abs(a[i]); end; for i: =1 to n do begin write(a[i]: 3); end; end.