Унескольких братьев разная сумма денег. если каждый брат даст каждому из младших по рублю, то у всех - id540977720220718 от toster1336 18.07.2022 11:47

Question

Информатика: Унескольких братьев разная сумма денег. если каждый брат даст каждому из младших по рублю, то у всех станет денег поровну. если же самый старший брат даст самому младшему 9 рублей, то у них двоих тоже стало бы денег поровну. сколько было братьев?

toster1336 · Accepted Answer

Const n=8; var  a:array[1..n,1..n] of integer; i,j,k,s,s1,si,dmin,smin:integer; begin Randomize; writeln( Исходный массив: ); for i:=1 to n do  begin  for j:=1 to n do   begin   a[i,j]:=random(50);   write(a[i,j]:4);   end;   writeln;  end; write( k = ); readln(k); s:=0; for j:=1 to n do s:=s+a[k,j]; writeln( s = ,s); dmin:=999999; smin:=999999; for i:=1 to n do  if i k then   begin   s1:=0;    for j:=1 to n do s1:=s1+a[i,j];   writeln( s ,i, = ,s1);   if abs(s1-s) dmin then begin dmin:=abs(s1-s);...

MOGZ ответил