[any] Pascal: (без хранения введённых чисел => "эффективная")
var a, i, x: integer; begin for i := 1 to 6 do begin read(a); if a>0 then x := x + 1 else if a<0 then x := x - 1 end; if x>0 then write('Больше положительных') else if x<0 then write('Больше отрицательных') else write('Одинаково')end.PascalABC.NET: (с хранением введённых чисел в массиве)
## var a := ReadArrInteger(6); var x := a.Sum(x -> x>0 ? 1 : -1); if x=0 then Write('Одинаково') else Print('Больше', x>0 ? 'положительных' : 'отрицательных')Пример работы:
Поделитесь своими знаниями, ответьте на вопрос:
Определите значение переменной с после выполнения фрагмента программы a: =60; b: =10; a: =a-b*3; if a
Выполняем первую строку. Получается, что "а = 60".
Выполняем вторую: "b = 10"
Выполняем третью: "b" умножаем на три и отнимаем получившееся число от "a". Получается, что "a = 60 - 30 = 30"
Далее проверяем, действительно ли "b" больше, чем "a".
Как видим, все наоборот. a>b. Получается, что "c = b-a"
ответ: "c = -20"