Предмет: Информатика,
автор: supermee
Дан вещественный массив из 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.
Ответы
Автор ответа:
0
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.
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.
Похожие вопросы
Предмет: Математика,
автор: pshenimary07
Предмет: Математика,
автор: Аноним
Предмет: Русский язык,
автор: kabykendilnaz
Предмет: Математика,
автор: микунаша
Предмет: Математика,
автор: albertbalabeky