Инструменты Paint.NET в основном делятся на *​

var

 A: array [1..15] of Integer;

 i, Amin, Ai: Integer;

begin

 WriteLn ('Массив:');

 Randomize;

 for i := Low (A) to High (A) do begin

   A [i] := Random (100);          // заполнение массива случайными значениями

   Write (A [i], ' ');             // вывод для просмотра

 end;

 Amin := A [Low (A)];              // минимальное значение возьмем из первого элемента массива

 Ai := Low (A);                    // индекс минимального значения = 1

 for i := Low (A) + 1 to High (A) do begin  // цикл со второго элемента массива до последнего

   if A [i] < Amin then begin               // если найден элемент меньше минимального

     Amin := A [i];                         // изменяем его значение

     Ai := i;                               // и сохраняем номер

   end;

 end;

 Writeln;

 Writeln ('Минимальный элемент № ', Ai, ' равный ', A [Ai]);  // выводим минимальный элемент на просмотр

 A [Ai] := A [Low (A)] + A [High (A)];                        // изменяем на сумму первого и последнего

 Writeln ('Заменен на значение = ', A [Ai]);                  // и его новое значение на просмотр

end.

def sum_even(num)

 sum = 0

 num.split(//).each { |el| sum += el.to_i }

 sum.even?

end

def sqr_eq_cube(num)

 sum = 0

 num.split(//).each { |el| sum += el.to_i**3 }

 sum == num.to_i**2

end

def triangle(a, b, c)

 b == c ? (a == b) : false

end

puts 'Введите трёхзначное число N:'

n = gets.chomp

puts 'Введите стороны треугольника a, b, c:'

a = gets.chomp.to_i

b = gets.chomp.to_i

c = gets.chomp.to_i

puts '1.Сумма цифр данного трехзначного числа N является четным числом:'

puts sum_even(n)

puts '2.Квадрат заданного трехзначного числа равен кубу суммы цифр этого числа:'

puts sqr_eq_cube(n)

puts '3.Треугольник со сторонами a, b, c является равнобедренным.'

puts triangle(a, b, c)