profile
Опубликовано 5 лет назад по предмету Информатика от fm6000

Одномерный массив. Помогите!!!

  1. Ответ
    Ответ дан pacixor
    var
      Z: array [1..10] of integer;
      i: byte;
      MaxOddId, MaxEvenId: integer;
    begin
    randomize;
    writeln(' * * * Исходный массив * * *');
    for i := 1 to 10 do
    begin
      Z[i] := random(50)-20;
      MaxOddId := Z[1];
      MaxEvenId := Z[2];
      write(Z[i], ' ');
    end;

    for i := 1 to 10 do
    begin
      if i mod 2 = 0 then if Z[i] > MaxEvenId then MaxEvenId := Z[i];
      if i mod 2 <> 0 then if Z[i] > MaxOddId then MaxOddId := Z[i];
    end;

    writeln(#13+'Максимальный элемент на четных ячейках = ', MaxEvenId);
    writeln('Максимальный элемент на нечетных ячейках = ', MaxOddId);

    end.
Самые новые вопросы