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

Question

Информатика

Филат

4 апреля, 14:33

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

+2

Ответы (1)

Знаете ответ на вопрос?

Рогнеда · 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.