Один раз я с семьей решили поехать в лес. (Суда ты пишешь что в лесу был пикник ну или что-то другое и пишешь что ты туда взял(а) но это не обязательно)) . И в лесу была узкая тропинка я пошла по ней , а потом за ним была большая дверь, которая вела вела в прекрасный сад.В саду была речка и много деревьев, я прогулялась по саду.И в саду я нашла очки и я посмотрела по сторонам но никого не было. (Потом ты пишешь суда что я узнала что это очки времени и я куда то попала и все )).
Var ar:array[1..n] of integer; i,min,b:integer; begin min:=2147483647; //верхняя граница типа integer b:=0; //проверка на наличие минимума - ложь for i:=1 to n do begin readln(ar[i]); if (i mod 2=0) and (ar[i]>0) and (ar[i]<min) then {если индекс чётный, элемент положительный и меньше минимума} begin min:=ar[i]; //заменяем минимум элементом b:=1; //проверка на наличие минимума - правда end; end; if b=0 then writeln('Нет') else writeln(min); {если проверка-ложь, то нет минимума, иначе выводим минимум} end.
(Суда ты пишешь что в лесу был пикник ну или что-то другое и пишешь что ты туда взял(а) но это не обязательно)) . И в лесу была узкая тропинка я пошла по ней , а потом за ним была большая дверь, которая вела вела в прекрасный сад.В саду была речка и много деревьев, я прогулялась по саду.И в саду я нашла очки и я посмотрела по сторонам но никого не было. (Потом ты пишешь суда что я узнала что это очки времени и я куда то попала и все )).
Удачи в школе
Если не то Извини