Дан вещественный массив из 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.

Question

Информатика

Мироха

19 июля, 00:40

Дан вещественный массив из 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.

+4

Ответы (1)

Знаете ответ на вопрос?

Наля · Answer 1

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]
if min=0 then writeln ('таких нет') else writeln ('min=', min) ;

end.