арфметическое переполнение

[Alexmur07]

Задание. Массив L = (–2, 6, –8, 9, –5, 12, 0) преобразован к виду L = (1, 9, –5, 12, –2, 15, 3). Размер массива L - 36 элементов из диапазона [–31,31].
Вычислить сумму нечетных элементов преобразованного массива. Вычислить сумму тех элементов преобразованного массива, которые находятся в диапазоне [–1, 16].

uses crt;
const n=36;
type mas=array[1..n] of integer;
var
 t:mas;
 i:integer;

procedure preobraz(var a:mas);
var
 y:integer;
begin
 for y:=1 to n do
begin
 a[y]:=round(a[y]+3)
 end;
end;

function summa (b:mas):integer;
var
 s,x:integer;
begin
 s:=0;
  for x:=1 to n do
   if (b[x]>=-1) and (b[x]<=16) then
   s:=s+b[x];
  summa:=s;
end;

begin
 clrscr;
 writeln('Лабораторная работа 3');
 writeln('---------------------');
 randomize;
 for i:=1 to n do begin
 t[i]:=random(63)-31;
 write(t[i]:4);
end;
preobraz(t);
writeln;
writeln;
 for i:=1 to n do
  write(t[i]:4);

write(#13,#10,#10);
writeln('Сумма элементов преобразованного массива, которые находятся в диапазоне [-1.16] = ',summa(t));
readkey;
end.

подскажите что не так делаю? и вообще правильно ли решение накатал...?

и как скрывать текст у вас на форуме??????

[Stilet]

Не вижу криминала в коде.
Попробуй его на другом паскале поновее.

и как скрывать текст у вас на форуме?

Скрывать? Зачем?

[Utkin]

и как скрывать текст у вас на форуме

Пишите его на бумаге.

[Alexmur07]

Сообщение от Stilet

Скрывать? Зачем?

чтобы текст был только для форумчан

Сообщение от Utkin

Пишите его на бумаге.

- остроумный то какой ёпт.
плин а как мне проверить то работу перед отправлением на проверку... ??((( мож преподу написать - вот решение а оно не работает - в чём проблема???

[ZX Spectrum-128]

Сообщение от Alexmur07

чтобы текст был только для форумчан
- остроумный то какой ёпт.
плин а как мне проверить то работу перед отправлением на проверку... ??((( мож преподу написать - вот решение а оно не работает - в чём проблема???

Вам же подскали - проверьте в другом паскале поновее. Fpc или abc

[Alexmur07]

где скачать?)

[Stilet]

Не надо ниче качать.
Пиши код и выполняй тут: http://www.compileonline.com/compile_pascal_online.php

[Serge_Bliznykov]

подскажите что не так делаю? и вообще правильно ли решение накатал...?

для TurboPascal попробуйте заменить строчку на такую:

t[i]:=-31 + random(63);