Вмассиве м (8)найти количествои квадрат суммы отрицатьльных элементов

113

224

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

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

kris406

Информатика

4,7(89 оценок)

//pascalabc.net 3.2 begin var m: =readarrinteger('вводите массив: ', readinteger('кол-во эл.: ')); var sum: =0; var count: =0; for var i: =0 to length(m)-1 do if m[i]< 0 then begin sum+=m[i]; count+=1; end; writeln ('кол-во: ', count); write ('квадрат суммы: ', sqr(sum)) end.