Uses crt; var a,b,c,x,max,min,sum,pr: integer; begin write('Введите число: '); readln(x); a:= x div 100; b:= x div 10 mod 10; c:= x mod 10; sum:=a+b+c; pr:=a*b*c; if a>b then begin min:=b; max:=a; end else begin max:=b; min:=a; end; if min>c then min:=c; if max<c then max:=c; writeln('Сумма цифр числа: ',sum); writeln('Произведение цифр числа: ',pr); writeln('Максимальная цифра: ',max); writeln('Минимальная цифра: ',min); end.
Program arrays; var a:array [1..3,1..6] of integer; i,j:byte; begin for i:=1 to 3 do for j:=0 to 1 do begin a[i,1+3*j]:=random(101)+10; a[i,2+3*j]:=random((1001)+100) div (i+2*j); a[i,3+3*j]:=(random(101)+10) mod 10; end; for i:=1 to 3 do begin for j:=1 to 6 do write(a[i,j],' '); writeln; end; end.
