Var a:array[1..5,1..7] of integer; i,j,kolpol,kolotr:integer; respol,resotr:real; begin for j:=1 to 7 do begin for i:=1 to 5 do begin a[i,j]:=random(-50,50); write(a[i,j]:4); end; writeln(); end; for i:=1 to 5 do begin respol:=0; resotr:=0; kolpol:=0; kolotr:=0; for j:=1 to 7 do begin if a[i,j]>0 then begin respol+=a[i,j]; kolpol+=1; end else if a[i,j]<0 then begin resotr+=a[i,j]; kolotr+=1; end; end; writeln('Среднее значение положительных чисел в ',i,' столбце=', respol/kolpol); writeln('Среднее значение отрицательных чисел в ',i,' столбце=', resotr/kolotr); end; end.
1) Объем куба А**3, объем шара 3.1415*4/3*R**3 процент отходов отношение второго к первому, умноженное на 100 Язык Python A = float(raw_input("Введите длинну ребра:")) R = float(raw_input("Введите радиус:")) print "Отходов %s процентов" % ((3.1415*4/3*R**3)/(A**3)*100) 2) тут все хитрее, пусть маленький радиус r1, а большой r2, тогда r2-r1=A и r1/r2=B решив эту систему получаем r1 = AB/(1-B) и r2=A/(1-B) площадь кольца S = 3.14.15*(r2**2-r1**2) Язык Python A = float(raw_input("Введите ширину кольца:")) B = float(raw_input("Введите отношение радиусов:")) r2 = A/(1-B) r1=r2*B print "Площадь кольца %s" % (3.1415*(r2**2-r1**2))
Здесь нужно вывести порядковый номер элементов