Доброго времени суток, с тебя '+'
Удачи ;)
Const
n=6; //размерность массива
Var
ar:array[1..n] of integer;
i,min,b:integer;
begin
min:=2147483647; //верхняя граница типа integer
b:=0; //проверка на наличие минимума - ложь
for i:=1 to n do
begin
readln(ar[i]);
if (i mod 2=0) and (ar[i]>0) and (ar[i]<min) then {если индекс чётный, элемент положительный и меньше минимума}
begin
min:=ar[i]; //заменяем минимум элементом
b:=1; //проверка на наличие минимума - правда
end;
end;
if b=0 then writeln('Нет') else writeln(min); {если проверка-ложь, то нет минимума, иначе выводим минимум}
end.
Знаю только для примеров и уравнений называется PhotoMath
<em>// PascalABC.NET 3.3, сборка 1583 от 25.11.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=SeqRandom(ReadInteger('n='),-99,99).Select(t->t/10).ToArray;
a.Println;
var (imax,imin):=(a.IndexMax,a.LastIndexMin);
Swap(a[imin],a[imax]); a.Println
end.
<u>Пример</u>
n= 15
-4.3 -5.6 7.2 -5.3 -7.7 9.3 1.4 0.3 -4.7 6.3 5.7 7.5 -8.6 6.9 -2.5
-4.3 -5.6 7.2 -5.3 -7.7 -8.6 1.4 0.3 -4.7 6.3 5.7 7.5 9.3 6.9 -2.5