Question

Вводится 10 чисел. Подсчитать количество и сумму чисел, не равных 5 Помогите пж,даю 50 баллов,технология 7 классPascalABC

Answer 1

Ответ:

var x,s,i: integer;

begin

s:=0;

for i:=1 to 10 do begin

 read(x);

if (x<>5) then s:=s+x;

end;

write(s);

end.

Объяснение:

Answer 2

Чтобы решить данную задачу, можно использовать цикл, который будет запрашивать 10 чисел у пользователя и проверять их на равенство с числом 5.

Для начала, необходимо объявить переменные для подсчета количества и суммы чисел, не равных 5:

var
  number, count, sum: integer;

Затем, инициализируем значения счетчиков:

count := 0;
sum := 0;

Теперь, создадим цикл, который будет запрашивать ввод 10 чисел и проверять их на равенство с числом 5:

for var i := 1 to 10 do
begin
  // Ввод числа
  write('Введите число: ');
  readln(number);
  
  // Проверка числа на равенство 5
  if number <> 5 then
  begin
    count := count + 1;  // Увеличиваем счетчик количества чисел
    sum := sum + number; // Увеличиваем счетчик суммы чисел
  end;
end;

После окончания цикла, можно вывести на экран результаты подсчета:

writeln('Количество чисел, не равных 5: ', count);
writeln('Сумма чисел, не равных 5: ', sum);

Полный код программы:

program CountNumbers;

var
  number, count, sum: integer;

begin
  count := 0;
  sum := 0;
  
  for var i := 1 to 10 do
  begin
    write('Введите число: ');
    readln(number);
    
    if number <> 5 then
    begin
      count := count + 1;
      sum := sum + number;
    end;
  end;
  
  writeln('Количество чисел, не равных 5: ', count);
  writeln('Сумма чисел, не равных 5: ', sum);
  
  readln;
end.

После выполнения программы, на экране будет выведено количество чисел, не равных 5, а также их сумма.