var i, k_max, max, neg_max: integer; a: array[1..n] of integer;
begin for i := 1 to n do begin a[i] := random(100) - 50; write(a[i], ' '); end; writeln();
max := a[1]; k_max := 1; neg_max := 0; for i := 1 to n do begin if a[i] > max then begin max := a[i]; k_max := 1; end; if a[i] = max then k_max := k_max + 1; if (a[i] < 0) and (abs(a[i]) > abs(neg_max)) then neg_max := a[i]; end;
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.
