Основний алгоритм для визначення найменшого і найбільшого числа з набору дійсних чисел включає наступні кроки:
Ініціалізувати змінну мінімум значенням першого числа у наборі.
Ініціалізувати змінну максимум значенням першого числа у наборі.
Просканувати залишок чисел у наборі.
Для кожного числа:
Порівняти його зі значенням мінімум. Якщо воно менше, оновити значення мінімум на поточне число.
Порівняти його зі значенням максимум. Якщо воно більше, оновити значення максимум на поточне число.
Вивести значення мінімум і максимум.
Ось приклад реалізації даного алгоритму у мові програмування 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
Объяснение:
Основний алгоритм для визначення найменшого і найбільшого числа з набору дійсних чисел включає наступні кроки:
Ініціалізувати змінну мінімум значенням першого числа у наборі.
Ініціалізувати змінну максимум значенням першого числа у наборі.
Просканувати залишок чисел у наборі.
Для кожного числа:
Порівняти його зі значенням мінімум. Якщо воно менше, оновити значення мінімум на поточне число.
Порівняти його зі значенням максимум. Якщо воно більше, оновити значення максимум на поточне число.
Вивести значення мінімум і максимум.
Ось приклад реалізації даного алгоритму у мові програмування 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
Объяснение:
str : string;
i,c,a,count : integer;
begin
i:=1;
count :=0;
writeln('Вводите числа, как только введете все числа нажмите любую букву');
while i=1 do begin
readln(str);
val(str,a,c);
if ( a mod 2 <>0) then count := count +a;
if(c<>0) then i:=0;
end;
writeln('Сумма нечетных чисел = ', count);
end.