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

@Gold10 · Регистрация: 17.10.2017

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

@ZX Spectrum-128 · 20.10.2017, 10:16

Pascal

1
2
3

for i:=1 to 20 do
 if (a[i]>=-50) and (a[i]<=50) then
  a[i]:=abs(a[i]);

@Cyborg Drone · 23.10.2017, 12:09

Точнее,

Pascal

2	if (a[i]>=-50) and (a[i]<0) then

или вовсе вторую строку выкинуть.

@Gold10 0 / 0 / 0 Регистрация: 17.10.2017 Сообщений: 10
		1
	В таблице из 20 чисел, лежащих в промежутке от -50 до 50, заменить все отрицательные числа на их абсолютные значения 20.10.2017, 10:11. Показов 1808. Ответов 2 Метки нет (Все метки) В таблице из 20 чисел, лежащих в промежутке от -50 до 50, заменить все отрицательные числа на их абсолютные значения. 0

	23.10.2017, 12:09

Опции темы

Решение