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

Question

Информатика

Нинока

20 сентября, 03:22

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

+1

Ответы (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.