Napisz program, który dla zadanej liczby wypisze jej wartość bezwzględną.

[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, wskazanie badz nakierowanie na blad .

[5corpio]

Skoro ma być tylko dla 1 liczby wprowadzonej przez użytkownika to po co ci pętla przez 200 elementów ?

 

Na wejściu znajduje się jedna liczba całkowita x

 

A ty sobie robisz tablicę 200 elementów nie wiedzieć po co potem lecisz w pętli i zczytujesz tyle wartości.

 

Nie pamiętam w ogóle czy archaiczny pascal na to pozwalał co ty robisz?

 

var T: array[-100..100] of longint;

Czyli definiowanie tablicy od elementów ujemnych? Z tego co pamiętam to chyba delphi tylko pozwalało na dowolne zakresy ale mogę się mylić. Co nie zmienia faktu, że chyba kompletnie nie ogarniasz nic a program to ~10linijek.