Artem
Помогите оформить через подпрограмму. Даны целые числа а1,а2,...an и b1,b2,...bn.Преобразовать последовательность b
Даны целые числа а1,а2,...an и b1,b2,...bn.Преобразовать последовательность b1,b2,...bn по правилу :если ai меньше либо равно 0,то bi увеличить в 10 раз, иначе заменить bi нулем (i=1,2,...n).
var b,a:array[1..50] of integer;
i,k,n:integer;
begin
write('Введите размерность массива= ');
readln(n);
writeln('Введите массив A: ');
for i:=1 to n do
readln(a);
writeln('Введите массив B: ');
for i:=1 to n do
readln(b);
for i:=1 to n do
if a<0 then b:=b*10
else b:=0;
writeln('Полученный массив В: ');
for i:=1 to n do
write(b:4);
end.