положительные элементы массива замените на 10, а отрецательные на -10

1

Ответы и объяснения

2013-11-20T18:54:17+04:00
Uses crt;
const n=10;
var a:array[1..n] of integer;
i:integer;
begin
randomize;
for i:=1 to n do
begin
a[i]:=random(100)-50;
write(a[i]:3);
if a[i]>0 then a[i]:=10 else a[i]:=-10;
end;
writeln;
for i:=1 to n do
write(a[i]:3);
end.