profile

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

Найти наименьший положительный элемент массива Е(9) и его номер.

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

    Program egor4774442;
    uses crt;
    const n=9;
    var
      e:array[1..n] of integer;
      min, nom,i: integer;
    begin
      writeln('*** alphaues is thinking... ***');
      writeln('***          OK             ***');
      randomize;
      for i:=1 to n do
        e[i]:=random(100)-50;
      min:=e[i];
      nom:=1;
      writeln('Элементы массива:');
      for i:=1 to n do
        begin
          if (e[i]<min) and (e[i]>0) then
            begin
              min:=e[i];
              nom:=i;
            end;
          write (e[i]:5);
        end;
      writeln();
      writeln('Наименьший положительный элемент массива:  ',min);
      writeln('Его номер:  ',nom);
    end.

Войдите или зарегистрируйтесь, чтобы добавить ответ или свой вопрос на сайт


Другие вопросы
Хаааа
Математика - 3 недели назад

150+150=?

Хаааа
Математика - 3 недели назад

150+150=?

скляр
Биология - 1 месяц назад

Ген днк включает 300 пар нуклеотидов. какова длина, молекулярная масса гена и сколько аминокислот закодировано в нем

скляр
Биология - 1 месяц назад

Ген днк включает 300 пар нуклеотидов. какова длина, молекулярная масса гена и сколько аминокислот закодировано в нем

Дашка
Русский язык - 1 месяц назад

Подчеркните грамматическую основу. определите вид дополнения (прямое или косвенное), подпишите их 1) я отправил сестре телеграмму с поздравлением 2) учёные доказали существование жизни в космосе 3) он не знал никаких радостей, кроме чтения книг. 4) и поныне славятся у нас на севере замечательные русские умельцы.5) после тёплой ясной погоды наступило ненастье.6) подруга на станции купила новый иллюстрированный журналы и свежий мягкий хлеб. 7)хохлатые курицы ищут в сене мошек да букашек.8) и туман, и непогоду осень поздняя несёт


Информация

Посетители, находящиеся в группе Гости, не могут оставлять комментарии к данной публикации.