Question

Паскаль. 8 класс. Даны 6 чисел. Каких чисел больше - положительных или отрицательных? Пожалуйста!

Answer 1

[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 ? 'положительных' : 'отрицательных')

Пример работы:

Answer 2

Для решения этой задачи необходимо посчитать количество положительных и отрицательных чисел в данном наборе.

Пройдите по всем 6 числам и для каждого числа проверьте его знак. Если число положительное, увеличьте счетчик положительных чисел на 1. Если число отрицательное, увеличьте счетчик отрицательных чисел на 1. Если число равно нулю, то его можно не учитывать в данном случае.

После того, как вы пройдете по всем числам, сравните количество положительных и отрицательных чисел. Если количество положительных чисел больше, то ответ на задачу будет "больше положительных чисел". Если количество отрицательных чисел больше, то ответ на задачу будет "больше отрицательных чисел". Если количество положительных и отрицательных чисел равны, то ответ будет "одинаково".

Например, если из 6 чисел 3 положительных и 2 отрицательных, то ответ будет "больше положительных чисел".