Найти минимальный по абсолютной величине элемент массива - Turbo Pascal
Формулировка задачи:
Нужно обработать одномерный массив из существующих и найти минимальный по абсолютной величине , массив состоит из 11 чисел , -11,37 ; 11,21 ; -9,25 ; - 18,58 ; 11,19 ; 12,99 ; 2,58 ; -5,05 ; 0,15 ; 6,06; -8,86
Помогите пожалуйста составить задачу.
+ еще одна с произведением и количеством положительных элементов
двумерный массив (2,3) -20,80 ; 22,51 ; -9,72
-14,23 ; 11,92 ; -23,88
Решение задачи: «Найти минимальный по абсолютной величине элемент массива»
textual
Листинг программы
uses crt;
const n=11;
a:array[1..n] of real=(-11.37,11.24,-9.25,-18.58,11.19,12.99,2.58,
-5.05,0.15,6.06,-8.86);
var i:byte;
min:real;
begin
clrscr;
writeln('Массив');
for i:=1 to n do
write(a[i]:7:2);
writeln;
min:=a[1];
for i:=2 to n do
if abs(a[i])<abs(min) then min:=a[i];
writeln('Минимальный по модулю элемент=',min:0:2);
readln
end.
Объяснение кода листинга программы
Данный код написан на языке Turbo Pascal и выполняет следующие действия:
- Объявляет переменные: n - количество элементов в массиве, a - массив чисел, i - индекс элемента массива, min - минимальное значение из массива.
- Создает массив a с 11 элементами.
- Инициализирует переменную min значением первого элемента массива a.
- Выводит содержимое массива a на экран.
- Находит минимальное значение из массива a, обновляя значение переменной min, если найденное значение меньше текущего значения min.
- Выводит на экран минимальное значение из массива a.
- Завершает работу программы. Таким образом, данный код находит минимальный по абсолютной величине элемент массива и выводит его на экран.