Question

Сформулировать линейный массив из 9 элементов, значения которых вводится с клавиатуры. Все положительные числа массива заменить на 1, отрицательные на 0. Результат вывести ра экран

Answer 1

program raf105;

const

 n = 9;

var

 a: array[1..n] of integer;

 i: integer;

begin

 writeln('Заполните массив');

 for i:=1 to n do

 begin

   readln(a[i]);

   if a[i] > 0

     then a[i]:= 1

     else a[i]:= 0;

 end;

 write('Новый массив: ');

 for i:=1 to n do

   write(a[i],' ');

end.

PascalABC 3.4.2

Answer 2

Не могу...

Answer 3

ой,алгоритм(алгоритм же можете,правильно?)

Answer 4

Да, алгоритм могу.

Answer 5

Но вам нужно отредактировать второй вопрос и убрать из него условие "Написать программу"

Answer 6

Иначе мой ответ удалят как неполный