Вопрос по информатике:
В массиве М (8)найти количествои квадрат суммы отрицатьльных элементов
Пожаловаться
- 12.09.2016 03:58
- Информатика
- remove_red_eye 15439
- thumb_up 14
Ответы и объяснения 1
//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.
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.
Пожаловаться
- 13.09.2016 18:50
- thumb_up 1
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы
Интересные вопросы