1.записать на языке логики высказывание:
если идти прямо , то можно прийти на место, но если ты не на месте, это еще не значит, что ты шел прямо
2. записать на языке предикатов : существует а и в такие ,что их среднегармонического больше их
​

1) var a: array [1..10] of integer;

i: integer;

begin

for i:=1 to 10 do begin

a[i]:=random(46);

write(a[i],' ');

end;

writeln;

for i:=1 to 10 do  

if a[i] div 10 = 3 then write(a[i],' ');

end.

2) ВНИМАНИЕ! ВЫВОДИТ ТОЛЬКО НЕЧЕТНЫЕ ЧИСЛА, ТАК КАК ПОЯВЛЕНИЕ ОТРИЦАТЕЛЬНЫХ В ДАННОМ ДИАПАЗОНЕ НЕВОЗМОЖНО

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

i,j: integer;

begin

j:=0;

for i:=1 to 10 do

begin

a[i]:=random(46);

if odd(a[i]) then inc(j);

write(a[i],' ');

end;

writeln;

writeln('Количество нечетных чисел в массиве: ',j);

end.

Pascal

var a,b: array of integer;

i,k,s1,s2: integer;

begin

s1:=0;

s2:=1;

write('Введите количество элементов массива');

readln(k);

setlength(a,k);

setlength(b,k);

for i:=0 to k-1 do

begin

write('Ввод данных для a[',i,']=');

readln(a[i]);

if a[i]>0 then s1:=s1+a[i] else s2:=s2*a[i];

end;

writeln('Данные массива A:');

for i:=0 to k-1 do writeln('a[',i,'] = ',a[i]);

writeln;

writeln('Данные массива B:');

for i:=0 to k-1 do

begin

if a[i]>0 then b[i]:=s2 else b[i]:=s1;

writeln('b[',i,'] = ',b[i]);

end;

end.