//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.
Для решения этой задачи отбросим лишнее и оставим только данные нам факты: 1.Юре не хватает времени на туризм -> Юра не турист. 2. Врач сказал,что разделает увлечение сестры Юры -> Врач - турист. 3. У двух друзей нет нет букв из их имени ни в профессии, ни в увлечении.
Начнем с Тимура.Буквы из его имени есть во всех профессиях,значит к факту №3 он не относится.
Возьмем Юру. Если учитывать факт №3, то из увлечений ему подходит только бег, а из профессий - физик. Влад же у нас получается ,следуя факту №3 , Юрист, увлечение которого - регби. Тогда Тимур у нас является Врачом, который увлекается туризмом. Решение верное,так как ни один из фактов не нарушен.
Для решения этой задачи отбросим лишнее и оставим только данные нам факты: 1.Юре не хватает времени на туризм -> Юра не турист. 2. Врач сказал,что разделает увлечение сестры Юры -> Врач - турист. 3. У двух друзей нет нет букв из их имени ни в профессии, ни в увлечении.
Начнем с Тимура.Буквы из его имени есть во всех профессиях,значит к факту №3 он не относится.
Возьмем Юру. Если учитывать факт №3, то из увлечений ему подходит только бег, а из профессий - физик. Влад же у нас получается ,следуя факту №3 , Юрист, увлечение которого - регби. Тогда Тимур у нас является Врачом, который увлекается туризмом. Решение верное,так как ни один из фактов не нарушен.
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.