Нефёд
5 год назад
Дан вещественный массив из 40 элементов. Элементы массива могут принимать произвольные значения. Опишите на русском языке или на одном из языков программирования алгоритм, который находит и выводит минимальный положительный элемент массива или сообщение, что такого элемента нет.Исходные данные объявлены так, как показано ниже. Запрещается использовать переменные, не описанные ниже, но разрешается не использовать часть из них.constN = 40;vara: array [1..N] of real;i, j: integer;min: real;beginfor i := 1 to N doreadln(a[i]);...end.
ОТВЕТЫ
Сафия
Oct 24, 2020
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.
861
Смежные вопросы:
