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)
1) a) лесостепи
2) б) умеренно континентальный
3) б) сильные ветры
4) в) чернозем
5) В) лесостепи
6)в) запад
7) в) лето если говорить про ставропольский край
8) а) север
9) А) горы
10) конечно же Г) Кубань (общая длина 970 км)
Объяснение:
Не предусмотренно