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

В массиве М (8)найти количествои квадрат суммы отрицатьльных элементов
Гость
Ответ(ы) на вопрос:
Гость
//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.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы