№564 помогите с информатикой.

Question

№564 помогите с информатикой.

---

---

Answer 1

var a: array [0..67] of integer;  

i,max,maxi:integer;

begin

randomize;

for i:=0 to 67 do  

 a[i]:=random(60);

max:=0;

maxi:=0;

for i:=0 to 67 do  

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

   begin

   max:=a[i];

   maxi:=i;

   end;

writeln(maxi);

end.

Answer 2

//PascalABC.NET v3.3 1633

var a: array [0..67] of integer;

begin

 for var i:=0 to 67 do

   a[i]:=random(0, 9);

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

 a.PrintLn(', ');

 

 var maxIndex:=0;

 for var i:=0 to 67 do

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

     maxIndex:=i;

 writeln('Максимальный нечетный элемент: A['+maxIndex+'] = '+a[maxIndex]);

end.