С+ немесе Паскаль тілінде есеп. x[10] массивінің тақ элементтерінің максимумын табу.

Question

x[10] массивінің тақ элементтерінің максимумын табу керек.

Answer 1

program mas;

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

i,takmin:integer;

begin

for i:=1 to 10 do

readln(x[i]);

takmin:=x[i];

for i:=1 to 10 do

if (x[i]mod 2=1)then

takmin:=x[i];

writeln('x[10] massivinin tak alementterinin maksimumi=',takmin);

readln;

end.