Дан массив, вывести с клавиатуры размерность. отрицательные числа массива разделить на 2 и вывести на экран.
Дан массив, вывести с клавиатуры размерность. отрицательные числа массива разделить на 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.
Не нашли ответ?
Похожие вопросы