Работа с массивами

[Solnze2]

Дан вектор A(n). Подсчитать количество элементов максимальных по величине и если оно больше 2, то все элементы вектора с четными индексами заменить на 0.

[Stilet]

Легко. Показывай ввод вектора.

[Solnze2]

Ну, вот какой то набросок программы не уверена, что правильно:

program lab2;
const
  nmax=100;
var
  a: array[1..nmax] of integer;
  i,j,n,k,max: integer;
begin
  write('Skolko elementov v vektore? ');
  readln(n);
  write('a[1] = ');
  readln(a[1]);
  max:=a[1]; k:=0;
  for i:=2 to n do
  begin
    write('a[',i,'] = ');
    readln(a[i]);
    if a[i]>max then max:=a[i];
  end;
  for i:=1 to n do if a[i]=max then inc(k);
  if k>2 then for i:=1 to n do 
    if i mod 2=0 then a[i]:=0;
  writeln('Poluchenii massiv:');
  for i:=1 to n do write(a[i],' ');
  readln;
end.

[Stilet]

Ну, че?
Нормалек. Красота прям таки.
Запускай в паскале - каков результ будет?

[Leshii]

Чуть исправил, если тема конечно актуальна

program lab2;
const
  nmax=100;
var
  a: array[1..nmax] of integer;
  i,j,n,k,max: integer;
begin
 write('Skolko elementov v vektore? ');
  readln(n);
  for i:=1 to n do begin
    write('a[',i,'] = ');readln(a[i]);
  end;
 max:=a[1]; k:=0;
 for i:=1 to n do begin 
    if a[i]>max then max:=a[i];
  end;
  for i:=1 to n do begin
     if a[i]=max then inc(k);
  end;
  if k>2 then begin 
    for i:=1 to n do begin
      if (a[i] = max) and ( i mod 2 = 0) then a[i]:=0;
     end;
  { Вывод массива с нулями }
  { если K < 2 то выводим данный исходный массив с 1 максимумом}
  writeln('Poluchenii massiv:');
  for i:=1 to n do write(a[i],' ');
  readln;
end.

[TinMan]

Леший, чет ты не то сделал.. Цитирую условие (болд мой):

.. то все элементы вектора с четными индексами заменить на 0.

Решение, приведенное Солнцем2, совершенно верное (я правда не прверял его на деле, только просмотрел). Единственное, что режет глаз, это цикл замены на нули по ВСЕМ элементам массива с проверкой индекса на четность:

  if k>2 then for i:=1 to n do 
    if i mod 2=0 then a[i]:=0;

Это двойная лишняя работа. Я бы сделал так:

  if k>2 then for i:=1 to n div 2 do a[i*2]:=0;

- и цикл вдвое короче, и никаких проверок не надо.

[Leshii]

Подсчитать количество элементов максимальных по величине и если оно больше 2, ...

Я вот когда писал думал,"оно" - одинаковые максимумы которые надо обнулить, или же надо присвоить всем четным элемента 0 если максимумов больше чем 2.

Вот собственно и думал что надо было занулить максимумы.

Но видимо не понял условие. Или же автор исправил его после того как я посмотрел и написал =)