Помогите написать проги1. поменяйте все элементы массива целых чисел С(n) на

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

Задать свой вопрос
Anastasija Ekishkina
помогитееееее
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]gt;0 then a[i]:=-a[i]
else a[i]:=абс(a[i]);
end;
for i:=1 to n do begin
write(a[i]:3);
end;
end.
Лидия Манжосова
2.var a:array[1..100] of integer;
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт