Question

СРОЧНО!!!!

Создать массив, заполненный случайным образом 20 целыми числами в диапазоне от -30 до 20, найти номер минимального элемента и заменить им все нечетные элементы. паскаль

Answer 1

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

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