С клавиатуры вводится трехзначное число. Составить программу которая найдет разность цифр этого числа, стоящих в позиции единиц и сотен.
Var a: integer; begin readln(a); write(a mod 10 - a div 100); end.
Решить в ПАСКАЛЕ В массиве Z состоящем из 6 чисел все отрицательные элементы заменить их модулями. Полученный массив вывести. С ПОМОЩЬЮ ДАТЧИКА СЛУЧАЙНЫХ ЧИСЕЛ!
Помоги пожалуйста