Var a: array[1..20,1..20] of integer; n,m,i,j,min,jm,x: integer; begin randomize; write('Введите размеры массива: '); readln(n,m); writeln('Исходный массив:'); for i:=1 to n do begin for j:=1 to m do begin a[i,j]:=random(19)-9; write(a[i,j]:4); end; writeln; end; min:=0; for i:=1 to n do min:=min+a[i,1]; writeln('Сумма элементов 1-го столбца = ',min); jm:=1; for j:=2 to m do begin x:=0; for i:=1 to n do x:=x+a[i,j]; writeln('Сумма элементов ',j,'-го столбца = ',x); if x<min then begin min:=x; jm:=j; end; end; writeln('Минимальная сумма в ',jm,'-м столбце'); writeln('Полученный массив:'); for i:=1 to n do begin for j:=1 to m do begin if j<>jm then a[i,j]:=a[i,jm]; write(a[i,j]:4); end; writeln; end; readln; end.
1) var a,b,c,d,e,f,r,x,y,z:real; begin writeln('d, e, f:'); readln(d,e,f); write('r = '); readln(r); x:=d*pi/180; y:=e*pi/180; z:=f*pi/180; a:=2*r*sin(x); b:=2*r*sin(y); c:=2*r*sin(z); writeln('a = ',a:5:2,' b = ',b:5:2,' c = ',c:5:2); end.
Пример: d, e, f: 90 60 30 r = 2.5 a = 5.00 b = 4.33 c = 2.50
2) var a,b,c,d:integer; begin writeln('a, b, c, d:'); readln(a,b,c,d); if a+c>150 then writeln('a+c = ',a+c,' a = ',a,' b = ',b,' c = ',c,' d = ',d); end.
Пример: a, b, c, d: 72 18 94 25 a+c = 166 a = 72 b = 18 c = 94 d = 25
