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)Дана группа объектов. Выбери наиболее подходящее общее имя. Группа объектов: Латвия, Эстония, Германия, Бельгия. Учёные Страны Евросоюза Нет верного ответа Озёра 2)Объектами изучения в информатике являются... (Может быть несколько вариантов ответа!) ответ: производитель компьютер алгоритм разработка дизайна ноутбука 3)Прочитай во и дай ответ. Файл можно хранить в папках Имя файла состоит из имени и расширения В имени файла может использоваться значок < 4)Запиши верный ответ. 34816 Кбайт = Мбайт 5)Когда Наташа, Оля и Лена с какие оценки они получили за контрольную по музыке, то учитель ответил: «Попробуйте догадаться сами, а я вам скажу, что в классе двоек и единиц нет, и у вас троих три разные оценки, причем у Наташи не «3», у Оли — не «3» и не «5». Какую оценку получила каждая из трёх учениц? Оценка Наташи — ; Оценка Оли — ; Оценка Лены — . 6)Вова, Вадим, Руслан и Афанасий занимаются в разных спортивных секциях. Один из них играет в хоккей, другой — в волейбол, третий — в футбол, четвёртый — в регби. У них различные увлечения: один из них любит кино, другой — театр, третий — эстраду, а четвёртый — цирк. Вова не играет ни в волейбол, ни в хоккей. Вадим играет в футбол и любит театр. Афанасий не играет в волейбол. Тот из ребят, кто играет в волейбол, любит ходить в кино, а тот, кто играет в хоккей, не любит цирк. Какое у каждого из них увлечение, и каким видом спорта занимается каждый? ответ: Вова — — Вадим — футбол — театр Руслан — — Афанасий — — 7)Расстояние между двумя городами равно 382 км. Определи расстояние между изображениями этих городов на карте, если числовой масштаб карты равен 1:4000000. (ответ округли до целых ответ: см. 8)Выполни линейный алгоритм. Дано число 48. Умножь на 4. Прибавь 16. Умножь на 2. Отними 22. ответ:
1) a) лесостепи
2) б) умеренно континентальный
3) б) сильные ветры
4) в) чернозем
5) В) лесостепи
6)в) запад
7) в) лето если говорить про ставропольский край
8) а) север
9) А) горы
10) конечно же Г) Кубань (общая длина 970 км)
Объяснение:
Не предусмотренно