Дан массив, вывести с клавиатуры размерность. отрицательные числа массива разделить на 2 и вывести на экран.

Uses crt;
var i,n:integer;
mas:array[1..200] of integer;
begin
writeln(Длина массива?);
read(n);
writeln(Введите по очереди элементы массива.);
for i:=1 to n do
read(mas[i]);
for i:=1 to n do
if mas[i]<0 then
write(mas[i]/2, );
end.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.