Задание:
Дан массив вещественных чисел. Каждый отрицательный элемент заменить на его абсолютнуювеличину
Решение:
Uses crt; var i,n: integer; a: array[1… 100] of real; beginwriteln ('Сколько чисел в массиве? '); read (n); writeln ('Введите элементы.'); for i: =1 to n dobeginread (a[i]); if a[i]<0 thena[i]: =abs (a[i]); end; for i: =1 to n dowrite (a[i],'); end.
Знаете другой ответ?