Question

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

Answer 1

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.