Program Project2; {$APPTYPE CONSOLE} uses SysUtils; Const n=30; m=1; var b,c:array[m..n] of integer; i,a,s,y,s1:integer; BEGIN Write('Vvedite trexsnachnoe chislo A: '); readln(a); y:=a; s:=0; while ( y<>0 ) do begin s:=s + (y mod 10); y:=y div 10; end; Writeln('Summa zifr ravna: ',s); Writeln; Writeln('Massiv: '); For i:=m to n do begin b[i]:=100+Random(200); Write(b[i],' '); c[i]:=b[i]; end; Writeln; Writeln; Write('Vse chisla, kotorye ravny po summe zifr: ') ; For i:=m to n do begin s1:=0; while ( b[i]<>0 ) do begin s1:=s1 + (b[i] mod 10); b[i]:=b[i] div 10; end; //Write(' ',S1,' '); If s=s1 then begin Write(c[i],' '); end; end; Readln; END.
Program asd; Const n=4; m=3; Var A:array[1..n,1..m] of integer; B,jd,id:array[1..n] of integer; i,j,k,min,ii,jj:integer; BEGIN For i:=1 to n do begin For j:=1 to m do begin A[i,j]:=2+Random(8); Write(A[i,j],' '); end; Writeln; end; Writeln; ii:=1; For i:=1 to n do begin min:=1000; for j:=1 to m do begin jj:=1; If A[i,j]<=min then begin min:=A[i,j]; id[i]:=i; jd[i]:=j; end; end; B[i]:=min; end; For i:=1 to n do begin Writeln('Min: ',B[i],'. Строка: ',id[i],'; Столбец: ',jd[i],';'); end; END.
