Для нахождения минимума из четырёх чисел, можно использовать метод для нахождения минимума из двух чисел. Таким образом код будет намного яснее и компактнее. И вместо присваивания значения переменным m4 и m2 лучше сразу возвращать результат.
static int min2(int a, int b)
<span>{
</span><span> if(a < b)
</span><span> {
</span><span> return a;
</span><span> }
</span><span> else
</span><span> return b;
</span><span>}
static int min4(int a, int b, int c, int d)
<span>{
</span><span> return min2(min2(a, b), min2(c, d));
</span><span>}</span></span>
100011111=1*2^{8}+0*2^{7}+0*2^{6}+0*2^{5}+1*2^{4}+1*2^{3}+1*2^{2}+1*2^{1}+1*2^{0}=287
Какая размерность массива? А вообще просто строишь цикл
for i:= 1 to N do
a[i]:= a[i] + 25;
===== PascalABC.NET =====
var a := ArrRandom(10, -100, 100);
a.Println.Where(p -> p < 0).Count.Println
end.
<span>Program PR1;
Uses crt;
var f:text;
a,i:longint;
begin
clrscr;
assign(f,'Data');
rewrite(f);
for i:=1 to 10 do
begin
readln (a);
write (f,a);
end;
close(f);
end.
и еще надо дописать разрешение файла Желательно</span>