Логические выражения: 1. f= b (a + amb) 2. f = (a+c) (a + c) - (в + с) 3. featb+a - bab+bc 4. f = a b-c+ab+a - в - с+а - вс 5. f = a - b+b : с+с.а 6. f = a. b+a help! нужно

Заменить нечётные элементы по значению

program  raf105;

var  

 a:array[1..20] of integer;

 i,min: integer;

begin

min:= 10000;

writeln('Исходный массив:');

for i:=1 to 20 do

begin

 a[i]:= random(-30,20);

 writeln(a[i]);

 if a[i]<min

   then min:= a[i];

end;

writeln('Изменённый массив:');

for i:=1 to 20 do

begin

 if (a[i] mod 2)<>0

   then a[i]:= min;

 writeln(a[i]);

end;

end.

Заменить нечётные элементы по индексу

program  raf105;

var  

 a:array[1..20] of integer;

 i,min: integer;

begin

min:= 10000;

writeln('Исходный массив:');

for i:=1 to 20 do

begin

 a[i]:= random(-30,20);

 writeln(a[i]);

 if a[i]<min

   then min:= a[i];

end;

writeln('Изменённый массив:');

for i:=1 to 20 do

begin

 if (i mod 2)<>0

   then a[i]:= min;

 writeln(a[i]);

end;

end.

Язык PascalABC

=

Объяснение:

const

 nmax=100;

type

 Tarr=array[1..nmax] of integer;

var

 a:Tarr;

 i,n:integer;

begin

 randomize;

 repeat

   write('Razmer massiva, ne bolee ',nmax,': ');

   readln(n);

 until n in [1..nmax];

 writeln('Ishodniy massiv:');

 for i:=1 to n do

   begin

     a[i]:=random(50);

     write(a[i]:4);

   end;

 writeln;

 i:=1;

 while (i<=n) and (a[i] mod 5<>0) do

   inc(i);

 if i>n then

   writeln('Net elementov kratyh 5')

 else  

   begin

     a[i]:=0;

     writeln('Poluchenniy massiv:');

     for i:=1 to n do

       write(a[i]:4);

     writeln;

   end;

end.