Сделайте на qbasic в старояпонском календаре был принят 60-летний цикл, состоящий из пяти 12-летних подциклов, соответствующих последовательным цветам: зеленому, красному, желтому, белому и черному. внутри каждого подцикла годы носили название животных: крысы, коровы, тигра, зайца, дракона, змеи, лошади,овцы, обезьяны, курицы, собаки и свиньи. (1948 год- год зеленой крысы - начало цикла). определить по номеру n - год и вывести его название по старояпонскому календарю. исходная информация вводится с клавиатуры.

Основний алгоритм для визначення найменшого і найбільшого числа з набору дійсних чисел включає наступні кроки:

Ініціалізувати змінну мінімум значенням першого числа у наборі.

Ініціалізувати змінну максимум значенням першого числа у наборі.

Просканувати залишок чисел у наборі.

Для кожного числа:

Порівняти його зі значенням мінімум. Якщо воно менше, оновити значення мінімум на поточне число.

Порівняти його зі значенням максимум. Якщо воно більше, оновити значення максимум на поточне число.

Вивести значення мінімум і максимум.

Ось приклад реалізації даного алгоритму у мові програмування Lazarus (з використанням Pascal):program FindMinMax;

var

numbers: array[1..6] of Real; // Набір чисел

minimum, maximum: Real; // Змінні для збереження найменшого і найбільшого числа

i: Integer;

begin

// Ініціалізація набору чисел (приклад)

numbers[1] := 3.14;

numbers[2] := 2.718;

numbers[3] := 1.618;

numbers[4] := 0.577;

numbers[5] := 2.236;

numbers[6] := 1.414;

// Ініціалізація мінімуму і максимуму першим числом у наборі

minimum := numbers[1];

maximum := numbers[1];

// Пошук найменшого і найбільшого чисел у наборі

for i := 2 to 6 do

begin

if numbers[i] < minimum then

minimum := numbers[i];

if numbers[i] > maximum then

maximum := numbers[i];

end;

// Виведення результатів

WriteLn('Найменше число: ', minimum);

WriteLn('Найбільше число: ', maximum);

end.

Запустивши цей код у середовищі Lazarus, ви отримаєте виведені на екран найменше і найбільше число з набору. Ви можете змінити значення `numbers

Объяснение: