Помогите написать проги

1. замените все элементы массива целых чисел С (n) на противоположные по знаку

2. найти произведение элементов массива целых чисел А (n), меньших 3

3. в линейный массив вещественных чисел на К-тое место вставить элемент, равный среднему арифметическому элементов массива

Question

Информатика

Варлам

11 августа, 14:22

Помогите написать проги

1. замените все элементы массива целых чисел С (n) на противоположные по знаку

2. найти произведение элементов массива целых чисел А (n), меньших 3

3. в линейный массив вещественных чисел на К-тое место вставить элемент, равный среднему арифметическому элементов массива

+3

Ответы (1)

Знаете ответ?

Северина · Answer 1

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.