Найти минимальный элемент из элементов массива, расположенных на нечетных местах

@_Amsterdam_ · Регистрация: 24.03.2014

Студворк — интернет-сервис помощи студентам

Доброго времени суток! Вообщем возник очередной вопрос по одномерным массива. Нужно составить алгоритм к задаче: Найти минимальный элемент из элементов массива, расположенных на нечетных местах.
Попробовал, но почему то не работает. Вот что получилось у меня:

Pascal

Program project1;
Var x: array[1..30] of integer;
    i,n,k: integer;
    min: real;
Begin
  writeln ('n=');
  readln (n);
  i:=1;
  while i<=n do
  begin
    readln(x[i]);
    i:=i+1
  end;
min:=x[2];
k:=2;
i:=4;
while i<=n do
begin
  if x[i]<min then
  begin
    min:=X[i];
    k:=i
  end;
i:=i+2
end;
writeln ('min=', min:6:1, 'k=', k);
end.

@vint-81 · 22.12.2014, 17:34

подправил...

Pascal

Program project1;
Var x: array[1..30] of integer;
    i,n,k: integer;
    min:integer;
Begin
  write ('n=');
  readln (n);
  i:=1;
  while i<=n do
  begin
    write('x[',i,'] = ');
    readln(x[i]);
    i:=i+1
  end;
min:=x[1];
k:=1;
i:=3;
while i<=n do
begin
  if x[i]<min then
  begin
    min:=X[i];
    k:=i
  end;
i:=i+2
end;
writeln ('min = ', min,' в позиции ',k);
end.

@_Amsterdam_ · 22.12.2014, 17:52 **[ТС]**

Спасибо за внимание, помогли)

@_Amsterdam_ 0 / 0 / 0 Регистрация: 24.03.2014 Сообщений: 9
	22.12.2014, 17:52 [ТС]	3
	Спасибо за внимание, помогли) 0

Опции темы