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

Question

Информатика

Аза

25 октября, 19:22

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

+4

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