Написать программку: отыскать минимальный посреди положительных частей массива. Интервал: от -20
Написать программу: отыскать малый среди положительных частей массива. Интервал: от -20 до 150
Задать свой вопрос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.
-
Вопросы ответы
Статьи
Информатика
Статьи
Разные вопросы.
Математика.
Физика.
Геометрия.
Разные вопросы.
Обществознание.
Математика.
Химия.
Русский язык.
Разные вопросы.