Vb. dim a(5) as integer dim min as integer = a(0) for i as integer = 1 to a.length - 1 if i mod 2 = 0 then if a(i) > 0 and a(i) < min then min = a(i) end if ' end if nextpascal.const n=5; var a: array[1..n] of byte; i,imin: byte; begin writeln('исходный массив: '); for i: =1 to n do begin a[i]: =random(21); write(a[i],' '); end; writeln; imin: =1; for i: =2 to n do begin if a[i]< a[imin] then imin: =i; end; writeln('минимум = ',a[imin]); end.
ответ:
мои соки замачиваются на костном мозге
прости, прости, прости, прости
я смог закончить урок, если бы дал его ему. я и ялала были на блюде . спи, дыши. в конце концов, я долго работал. boz̦lo
это мои последние вдохи. в ожидании моего роста
я боюсь кита. да, они мои утки
у кого-то еще есть год в жюри,
душит и злоупотребляет.
я был болен, и я болел. доктор
кожа киль torz̦o открыта. моя мумия воска выдувается.
врач имеет тот же вес, что и иностранец:
если ниндальная нить потрескалась, не ешьте ее. в
сегодня сказка - тупик,
фильм рассказывает смерти йомшака
у каждого есть большой опыт.
объяснение: