Var a,s,mn: real; n,i: integer; begin clrscr; repeat write('сколько чисел ввести n> 0 n='); readln(n); until n> 0; writeln('введите ',n,' чисел: '); s: =0; for i: =1 to n do begin write('a='); readln(a); if i=1 then mn: =a else if odd(i)and(a< mn) then mn: =a; if(i mod 2=0)and(a> 0) then s: =s+a; end; writeln('сумма положительных с четными индексами=',s: 0: 2); writeln('минимальный с нечетным индексом=',mn: 0: 2); readln end.
Aliferenko
29.03.2021
Вконце всего пути ученик оказался на уровне d: \comp\логика\таблицы.по условию сказано что до этого он опустился на уровень вниз сначала один раз, а потом второй, значит просто поднимем его по каталогу на 2 уровня и он окажется в каталоге d: \comp, в который, как говориться в условии, он до этого поднялся, а это значит что нам достаточно опуститься, чтобы получить ответ : d: \comp\билеты. как вы поняли, путь каталога, с которым он работал изначально выглядит как: d: \comp\билеты , что и будет являться ответом.