Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Gold10
0 / 0 / 0
Регистрация: 17.10.2017
Сообщений: 10
#1

В таблице из 20 чисел, лежащих в промежутке от -50 до 50, заменить все отрицательные числа на их абсолютные значения - Turbo Pascal

20.10.2017, 10:11. Просмотров 99. Ответов 2
Метки нет (Все метки)

В таблице из 20 чисел, лежащих в промежутке от -50 до 50, заменить все отрицательные числа на их абсолютные значения.
http://www.cyberforum.ru/pascal/thread662028.html
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
20.10.2017, 10:11
Я подобрал для вас темы с готовыми решениями и ответами на вопрос В таблице из 20 чисел, лежащих в промежутке от -50 до 50, заменить все отрицательные числа на их абсолютные значения (Turbo Pascal):

В матрице заменить все отрицательные числа на их абсолютные значения
В матрице A(5,5) заменить все отрицательные числа на их абсолютные значения.

Все отрицательные элементы массива заменить на их абсолютные значения
Все отрицательные элементы массива A,P,R,T,Q,F заменить на их абсолютные...

Заменить все отрицательные числа их модулями и напечатать все полученные 10 чисел
1)Ввести с клавиатуры 10 чисел – положительных и отрицательных. Заменить все...

Все отрицательные числа в файле вещественных чисел заменить на 0
записать в файл 15 вещественных чисел. Прочитать этот файл, все отрицательные...

В массиве вещественных чисел отрицательные значения заменить на абсолютные значения
В массиве вещественных чисел отрицательные значения заменить на абсолютные...

2
ZX Spectrum-128
Модератор
Эксперт Pascal/Delphi
3857 / 2844 / 3631
Регистрация: 05.06.2014
Сообщений: 13,941
20.10.2017, 10:16 #2
Pascal
1
2
3
for i:=1 to 20 do
 if (a[i]>=-50) and (a[i]<=50) then
  a[i]:=abs(a[i]);
0
Cyborg Drone
Модератор
5249 / 3116 / 2432
Регистрация: 17.08.2012
Сообщений: 10,067
23.10.2017, 12:09 #3
Лучший ответ Сообщение было отмечено ZX Spectrum-128 как решение

Решение

Точнее,
Pascal
2
 if (a[i]>=-50) and (a[i]<0) then
или вовсе вторую строку выкинуть.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
23.10.2017, 12:09
Привет! Вот еще темы с решениями:

Дана последовательность чисел а, в, с. Все отрицательные числа заменить
Дана последовательность чисел а, в, с. Все отрицательные числа заменить на...

Как используя очередь, написать процедуру или функцию, которая заменяет все отрицательные элементы файла на их абсолютные значения?
Как используя очередь, написать процедуру или функцию, которая заменяет все...

Из 5 заданных чисел отрицательные числа сделать положительными, а все нули заменить на один
из 5-ти заданных чисел отрицательные числа сделать положительными, а все нули...

Из пяти заданных чисел отрицательные числа сделать положительными, а все нули заменить на один
из 5-ти заданных чисел отрицательные числа сделать положительными, а все нули...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru