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

Question

Информатика

Гали

10 апреля, 17:33

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

+4

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