Дан целочисленный массив из 20 элементов. элементы массива могут принимать целые значения от –1000 до 1000 включительно. опишите на естественном языке или на одном из языков программирования алгоритм, позволяющий найти и вывести минимальное значение среди положительных элементов массива, не оканчивающихся на 3. если в исходном массиве нет элемента, значение которого положительно и не оканчивается на 3, то вывести сообщение «не найдено».

#include <iostream>
using namespace std;

int main()
{
  int min, x;
  min = 9999999;
  do
  {
    cin>>x;
    if(x<min&&x!=0)
      min = x;
  }
  while (x != 0);
  cout<<"MIN = "<<min<<endl;
}

// F#
open System
let anyNumberSymbol = "?"
let replaceSymbolOnIndex (str:string) (number:int) (index:int) =
    String.Format("{0}{1}{2}", str.Substring(0, index), number, str.Substring(index+1))
let rec getAllValues (valueStr:string) =
    let index = valueStr.IndexOf(anyNumberSymbol)
    if index > -1
        then
            let newStrings =
                [0..9]
                |> Seq.map (fun x -> replaceSymbolOnIndex valueStr x index)
            newStrings |> Seq.collect (fun x -> getAllValues x)
        else
            [valueStr] |> List.toSeq 
let getResults (numbers:string list) =
     List.nth numbers 0
        |> getAllValues
        |> Seq.map (fun firstNumber ->
              List.nth numbers 1
                |> getAllValues
                |> Seq.map (fun secondNumber ->
                      List.nth numbers 2
                        |> getAllValues
                        |> Seq.map (fun resultNumber ->
                            if Int32.Parse(firstNumber) + Int32.Parse(secondNumber) = Int32.Parse(resultNumber)
                                then [String.Format("{0} + {1} = {2}", firstNumber, secondNumber, resultNumber)]
                                else []
                        )
                        |> Seq.collect (fun x -> x)
                )
                |> Seq.collect (fun x -> x)
        )
        |> Seq.collect (fun x -> x)
        |> Seq.toArray
[<EntryPoint>]
let main argv =
    let inputString = System.Console.ReadLine()
    let numbers = inputString.Split('+', '=') |> Array.map (fun x -> x.Trim())
    if numbers.Length = 3
        then
            let results = getResults (numbers |> Array.toList)
            if results.Length > 0
                then Console.WriteLine(results |> Seq.fold (fun result x -> result + "\n" + x) "")
                else Console.WriteLine("No results")
            Console.ReadKey(true) |> ignore
            0
        else
            1

// PascalABC.NET 3.3, сборка 1625 от 17.01.2018
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ArrRandom(20,0,1000); a.Println;
  a.Where(t->t.IsEven and (t mod 3 <>0)).Min.Println
end.

Пример
897 808 642 381 727 241 898 600 945 170 613 216 651 884 54 648 94 403 516 509
94



begin
  var a:=ArrRandom(30,-50,50); a.Println;
  var b:=a.Select(t -> t<0 ? -t : t).ToArray; b.Println
end.

Пример
-35 13 -17 -31 -16 -26 19 -3 -15 50 7 -29 39 1 48 14 7 23 3 -14 -8 -17 -32 -29 -9 28 -4 12 3 5
35 13 17 31 16 26 19 3 15 50 7 29 39 1 48 14 7 23 3 14 8 17 32 29 9 28 4 12 3 5

0+4+3=7

1) 1
2) 1
3) 10 9 8 7 6 6 7 8 9 10
4) ищет делители числа х и выводит их на экран

1) 20
2) 9
3)-14
4)1
5)-6

1) 30-3=27
2) 27-2=25
3) 25-1=24
ответ: 24

1) a
2) 5
3) 0
4) and
5) c
6) по идее d но не уверен

1) Y-ку присваиваешь 1 а i от 2 до 4 и y:=y+i  то есть  получается что к Y равному 1  прибавляешь значение i от 2 до 4
получается что в начале  1+2 , потом 1+3, 1+4
и в конце значение переменой Y равняется 5

Значит так они не покупали подарки они просто ходили по магазинам

D: \школа\ученики\нарушения