Программа на Паскаль.
Дан массив, состоящий из 10-ти чисел в диапазоне от -10 до +10 (элементы массива формируются случайным образом). Вывести сформированный массив на экран и затем заменить все отрицательные числа 0, а положительные 1.
Дан массив, состоящий из 10-ти чисел в диапазоне от -10 до +10 (элементы массива формируются случайным образом). Вывести сформированный массив на экран и затем заменить все отрицательные числа 0, а положительные 1.
More Questions From This User See All
Answers & Comments
const
n=10;
var
a:array [1..n] of integer;
i:integer;
begin
for i:=1 to n do
begin
a[i]:=random(21)-10;
write(a[i]:4);
if a[i]<0 then
a[i]:=0
else
if a[i]>0 then
a[i]:=1;
end;
writeln;
for i:=1 to n do
write(a[i]:4);
end.