Вычислить x=m/(n-m), где m - сумма квадратов отрицательных элементов первого вектора, n - сумма квадратов отрицательных элементов второго вектора в паскале

194

431

Посмотреть ответы 2

Ответы на вопрос:

milinamonid

Информатика

4,6(61 оценок)

Const k=10; type arr=array[1..k] of integer; procedure p1(var x: arr); var i: integer; begin for i: =1 to k do begin x[i]: =random(30)-15; write(x[i]: 3); end; writeln; end; function f1(var x: arr): integer; var i,s: integer; begin s: =0; for i: =1 to k do if x[i]< 0 then s: =s+x[i]*x[i]; f1: =s; end; var a,b: arr; m,n: integer; x: real; begin writeln('a: '); p1(a); writeln('b: '); p1(b); m: =f1(a); n: =f1(b); writeln('m = ',m,' n = ',n); x: =m/(n-m); writeln('x = ',x: 6: 4); end. пример: a: -13 7-11 11 -3 4 13 3 -1 2 b: 8 -2 5 10 9 8 -8 12 7-13 m = 300 n = 237 x = -4.7619