Задан массив целых чисел изт10 элементов. Положительные элементы заменить единицами, отрицательные нулями

Question

Информатика

Витеша

2 октября, 18:08

Задан массив целых чисел изт10 элементов. Положительные элементы заменить единицами, отрицательные нулями

+2

Ответы (1)

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

Альберт · Answer 1

Var a:array [1 ... 10] of integer;

i:integer;

begin

for i:=1 to 10 do begin

a[i]:=random (100) - 50;

write (a[i]:4) ;

end;

writeln;

for i:=1 to 10 do

begin

if a[i]>0 then a[i]:=1

else a[i]:=0;

write (a[i]:2) ;

end;

end.