Причины войны были следующие: обострение Восточного вопроса, противоречия из-за черноморских проливов, политика Англии и Франции, направленная на вытеснение России с Балкан. Важную роль в данном событии сыграл адмирал Нахимов. В ноябре 1853 года Нахимов разгромил Турецкий флот в Синопской бухте. Уничтожил береговые укрепления и взял в плен командующего турецкой эскадрой Осман-Пашу. В 1854-1855 годах Нахимов руководил обороной Севастополя. Был командующим Севастопольского порта, занимал пост временного губернатора Севастополя. Россия потерпела поражение в Крымской войне, потеряла устье Дуная и Южную Бессарабию. России запрещалось иметь военный флот в Чёрном море и укрепления на его берегах. Другим важным событием данного периода стало зарождение военно-полевой хирургии. Причины данного события были следующие: необходимость увеличить качество оказания медицинской солдатам, сократить число людских потерь, одержать победу в войне.
Как-то так:
//fpc 3.0.0
program HelloWorld;
var
a: array [1..12] of integer; // массив от 1 до 12
i: integer; // итератор
N: integer; // размер массива
min: integer; // минимальное число
imin: integer; // индекс минимального числа
begin
N := 12; // размер массива 12
// заполняем массив числами
for i:=1 to N do
a[i] := Random(10);
// выводим массив
write('Array: ');
for i:=1 to N do
write(a[i],' ');
min:=a[1]; // берем первое значение числа в массиве как значение по умолчанию
imin:=1; // берем первый индекс
// промегаемся по массиву
for i:=1 to N do
begin
// если у нас квадрат min будет БОЛЬШЕ чем квадрат числа a[i], то мы записываем его значение в min и запоминаем индекс в imin
if min * min > a[i] * a[i] then
begin
min:= a[i];
imin:= i;
end;
end;
writeln(); // делаем отступ
writeln('------------------------------'); // отчеркиваем результат
writeln('imin=', imin); // выводим значение imin
writeln('MIN=', min); // выводим значение MIN
end.
Результат можно увидеть на скрине в приложении. Более приятный вид для восприятия кода тут: https://rextester.com/DFMS48956