Дан вещественный массив из 40 элементов. элементы массива могут принимать произвольные значения. опишите на языке или на одном из языков программирования алгоритм, который находит и выводит минимальный положительный элемент массива или сообщение, что такого элемента нет. исходные данные объявлены так, как показано ниже. запрещается использовать переменные, не описанные ниже, но разрешается не использовать часть из них. const n = 40; var a: array [1..n] of real; i, j: integer; min: real; begin for i : = 1 to n do readln(a[i]); end.

250

263

Посмотреть ответы 2

Ответы на вопрос:

laisysergant2002

Информатика

4,6(32 оценок)

Const n = 40; var a: array [1..n] of real; i, j: integer; min: real; begin for i : = 1 to n do readln(a[i]); for i: =1 to n do if (a[i]> 0) then begin j: =i; min: =a[i]; //запоминаем последний положительный и его номер end; for i: =j downto 1 do if (a[i]> 0) and (a[i]< min) then min: =a[i]; if min=0 then writeln('таких нет') else writeln('min=',min); end.