Задание:
Дано 20 вещественных чисел. Найти разницу между минимальным и максимальным из них.
Выбор алгоритма решения задачи
В этой задаче нужно применять массив. И с помощью цикла, вносить 20 чисел. Потом сравнивать их и найти максимальное и минимальное число. И отнять минимальное от максимального.
Описание решения задачи
Создадим массив из вещественных чисел типа real. Вводим 20 чисел в этот массив. Проверяем на максимальное и минимальное число с помощью условия: если предыдущее число меньше существующего, тогда существующее записывается в max, аналогично наоборот: если существующее меньше предыдущего, тогда существующее записывается в min. Потом вычитаем max от min и получаем разницу.
Схема алгоритма решения задачи
Текст программы:
program lab3;
const n=20;
var A:array[1..n] of real;
max,min:real;
i:byte;
Begin
writeln('vvesty 20 chisel');
for i:=1 to n do
Begin
write('vvedite ',i,': ');
readln(A[i]);
end;
max:=A[1];
min:=A[i];
for i:=2 to n do
begin
if max<A[i] then
max:=A[i];
if min>A[i] then
min:=A[i];
end;
max:=max-min;
writeln('raznica = ',max:5:3);
readln;
end.
Результаты работы программы
В результате программа внесет в массив 20 чисел и найдет разницу между max и min числами данного массива. При компиляции получилось:
