...гор-бугор. догор нет такого слова
Для нахождения минимума из четырёх чисел, можно использовать метод для нахождения минимума из двух чисел. Таким образом код будет намного яснее и компактнее. И вместо присваивания значения переменным 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>
var f1,f2:text;
d,s,z,n:longword;
a,b,t,m,x:smallint;
begin
assign(f1,'input.txt');
reset(f1);
assign (f2,'output.txt');
rewrite(f2);
readln(f1,d,a,b,s,t);
if a>b then x:=a-b else x:=b-a;
if d mod s=0 then n:=d div s else n:=d div s+1;
if x mod t=0 then m:=x div t else m:=x div t+1;
z:=n+m;
write(f2,z);
close (f1);
close (f2);
end.
Program q;
var a:array[1..7,1..7] of integer; min7,sum1,odd,i,k:integer; avg5:real;
begin;
randomize;
for i:=1 to 7 do begin;
for k:=1 to 7 do begin;
a[i,k]:=random(-10,10);
if a[i,k] mod 2 = 1 then odd+=1;
end;
end;
min7:=a[1,7];
for i:=1 to 7 do if a[7,i]<min7 then min7:=a[i,7];
for i:=1 to 7 do sum1+=a[i,1];
for i:=1 to 7 do avg5+=a[5,i];
avg5/=7;
for i:=1 to 7 do a[1,i]:=1;
write('Минимальный элемент в 7 столбце ', min7, ', сумма элементов первой строки ', sum1, ', кол-во нечётных чисел ', odd);
end.
1 байт - 8бит
256/8 = 32 Байта