Pascal
Pascal: Napisz program, który dla zadanej liczby wypisze jej wartość bezwzględną.
Wejście: Na wejściu znajduje się jedna liczba całkowita x (−100<=x<=100).
Wyjście: Na wyjściu powinna znajdować się jedna liczba całkowita oznaczająca wartość
bezwzględną z x.
program warbez;
var T: array[−100..100] of longint;
x,n: longint;
begin
begin
readln (x);
for x:=1 to 201 do
read (T[x]);
n:=abs (T[x]);
end;
writeln (n);
end.
Prosze o sprawdzenie i podanie bledu lub nakierowanie na niego
