1. Дан целочисленный массив из двадцати пяти элементов. Элементы могут принимать…

Var a: array [1… 25] of integer; i, m, c: integer; begin for i: =1 to 25 do begin a[i]: =random (1000) — 500; writeln ('[', i, '] => ', a[i]); end; m: =501; for i: =1 to 25 do if (m > a[i]) and (a[i] mod 2=0) and (i mod 7 > 0) then begin m: =a[i]; c: =i; end; writeln ('[', c, '] => ', a[c]); end. Так=)