Заменить отрицательные элементы в массиве на положительные
Заменить отрицательные элементы в массиве на положительные, abs использовать запрещено.
Решение:
Program massiv5;
const n=5;
var a:array [1..n] of integer;
i,s,n:integer;
function abss(a:integer):integer;
begin
if a<o then abss:=-a else abss:=a;
end;
BEGIN
for i:=1 to n do begin
writeln('A[',i,']=');
readln(A[i]);
end;
for i:=1 to n do
if A[i]<0 then A[i]:=abss(A[i]);
for i:=1 to n do
writeln('A[',i,']=',A[i]);
END.
Объяснение:
Функцию abs, которая делает из числа абсолютное число, т.е только положительное использовать нельзя. Поэтому описываем эту функцию сами. Называем ее abss. Если а меньше 0 (т.е число отрицательное), то abss равно -a(отрицательное на отрицательное - дает положительное число), в любом другом случае а равно своему значению. Далее в первом цикле вводим массив. Во втором цикле преобразуем отрицательные значения в массиве в положительные. Остается только вывести массив.
|
| Категория: Сложные задачи | Добавил: deespe (31.01.2011)
|
| Просмотров: 5463
| Рейтинг: 0.0/0 |
|
