Написать программку: отыскать минимальный посреди положительных частей массива. Интервал: от -20

Написать программу: отыскать малый среди положительных частей массива. Интервал: от -20 до 150

Задать свой вопрос
1 ответ

var
   i, min, n : integer;         // объявляем переменные целочисленного типа.
   arr : array of integer;    // объявляем массив.
Begin
   writeln(Введите размерность массива:);    // вывод строчки на экран.
   read(n);                                                    // считываем размерность массива.
   setlength(arr,n);                                       // выделяем память под массив.
   for i:= 0 to (n-1) do                 // начало цикла.
      begin
         arr[i] := random(-20, 150); // заполняем элемент массива числом из спектра -20; 150.
         if (i = 0) then min := arr[i]; // считаем первый элемент - наименьшим.
         if (arr[i] gt; 0) then               // если элемент положительный.
             begin
                   if (arr[i] lt; min) then min := arr[i]; // сопоставляем элемент с минимумом.
             end;
      end;
     writeln(Малый посреди положительных элементов массива равен: , min); 
End.

, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт