Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
0 / 0 / 1
Регистрация: 22.09.2013
Сообщений: 62
1

Измените знаки всех элементов массива на противоположные

23.09.2013, 19:27. Показов 884. Ответов 2
Метки нет (Все метки)

Собственно вот сама задача: Дан одномерный массив чисел. Измените знаки всех его элементов на противоположные.
Помогите доделать,у меня с - на +меняет а наоборот почему то нет..в чём дело не подскажите..
Вот что у меня получилось,исправьте пожалуйста..
Код Паскаль:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
program Zamena;
const
n=20;
type
Tarray=array[1..n] of integer;
var i:integer;
a:Tarray;
begin
writeln(' массив противоположных чисел');
writeln(' заполнение массива ');
randomize;
for i:=1 to n do begin
a [i] :=random(10+20)-20;
write(a[i]:3, ' ' );
end;
for i:=1 to n do
if a[i]<0 then
a[i]:=-1*a[i];
writeln('новый массив*');
for i:=1 to n do
write(a[i]:3, ' ' );
readln;
end.

Поправьте меня пожалуйста..
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
23.09.2013, 19:27
Ответы с готовыми решениями:

Одномерный массив. Измените знаки всех нечётных элементов массива
Измените знаки всех нечётных элементов массива, состоящего из L чисел. Решите пожалуйста.

Заменить знаки всех элементов массива на противоположные, если нету ни одной пары одинаковых элементов
Помогите пожалуйста с программой. Можно как в паскале так и в делфи. Дано массив X розмерностью n...

Дан одномерный массив чисел. Измените знаки всех его элементов на противоположные
5) Дан одномерный массив чисел.Измените знаки всех его элементов на противоположные.

Измените все элементы этого массива на противоположные по знаку
Решить: Создать массив с именем А из 10-ти элементов, задав значения его элементов с помощью...

2
Почетный модератор
64086 / 47495 / 32734
Регистрация: 18.05.2008
Сообщений: 115,182
23.09.2013, 19:35 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
program Zamena;
const
n=20;
type
Tarray=array[1..n] of integer;
var i:integer;
a:Tarray;
begin
writeln('Исходный массив');
randomize;
for i:=1 to n do
 begin
  a [i] :=-20+random(41);
  write(a[i]:4);
 end;
writeln;
writeln('новый массив*');
for i:=1 to n do
 begin
  a[i]:=-1*a[i];
  write(a[i]:4);
 end;
readln;
end.
1
0 / 0 / 1
Регистрация: 22.09.2013
Сообщений: 62
23.09.2013, 19:38  [ТС] 3
Воот Спасибо Вам огромное!
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
23.09.2013, 19:38

Измените знаки всех элементов массива на противоположные
Задан одномерный массив чисел. Измените знаки всех его элементов на противоположные.

Измените знаки всех элементов массива на противоположные
Дан одномерный массив чисел. Измените знаки всех его элементов на противоположные.

Поменять знаки элементов массива на противоположные
Одномерные массивы, заполнение и обработка элементов массива (Составить программу в Pasclal...

Поменять на противоположные знаки тех элементов массива, которые встречаются ровно 1 раз
поменять на противоположные знаки тех эл-в массива,которые встречаются ровно 1раз


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru