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

Нахождение наибольшего элемента всего массива. (Паскаль)

  1. Ответ
    Ответ дан Hasl1337

    const n = 10;

    var

      a: array[1..n] of integer;

      i, max: integer;

    begin

      for i := 1 to n do begin

        a[i] := random(100);

        write(a[i], ' ');

        if(a[i] > max) then max := a[i];

      end;

      writeln;

      writeln('Наибольший эл. массива: ', max);

    end.

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