Нужна программа на pascal abc, которая будет находить среднее арифметическое n чисел и округлять его до целых. 100 ! !
Ответы
var n,i,a,sum: integer;
begin
write('n=');
readln(n);
sum:=0;
writeln('введите ',n,' чисел: ');
for i:=1 to n do
begin
readln(a);
sum:=sum+a;
end;
write('срзнач: ',round(sum/n));
end.
При первом проходе программы
m=0
в цикле for сравниваем Если элемент массива под номером 1 (т.е. число 2) минус 2*m>1 то m равна текущему элементу массива.
т.к. 2-2*0=2 и это больше 0 то значение m становится равным 2
1 проход m=2
При втором проходе цикла фор сравниваем уже второй элемент массива, т.е.
Dat[2]-2*m>1
6-2*2>1
2>1
Условие выполняется значит значение m на 2 проходе равно 6
при дальнейших проходах цикла for мы больше не получим значений больше 1 т.к. текущее m=6, т.е. из элементов массива мы будем вычитать 12, т.е. ни одного положительного числа мы не получим, т.е. условие if не выполнится ни разу и значение m не изменится
ответ m=6
оба ответа подходят в русском языке
но логичнее нет
просто у нет в русском 2 функции: согласие с отрицанием и отрицание отрицания
ответ Нет, на рисунке белая скатерть
(я выразил отрицание к вопросу)
словом нет можно выразить и отрицание и согласие
да здесь вообще не подходит его не рассматривает
у нет 2 варианта либо согласие с отрицанием - Нет, скатерть не белая. Либо отрицание вопроса - нет, белая.
при этом первый вариант не верный так как скатерть белая, то есть единственно верный это - Нет, скатерть белая (отрицание вопроса)Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Подскажите языки и методы программирования ! Нужно составить таблицу значений функций,
Запиши число 1CD16 в десятичной системе счисления!
РЕШИТЕ !1!1! ОТ МОГУ ЕЩЕ НАКИНУТЬ ЗАДАНИЕ 4.18 ✓3
Укажите сочетание клавиш позволяющих осуществить быстрый переход в окно
i,n,m,s:integer;
begin
Write('n='); Read(n);
s:=0;
for i:=1 to n do begin Read(m); s:=s+m end;
Writeln('Cреднее арифметическое округленно равно ',Round(s/n))
end.
Пример
n=5
3 6 2 4 3
Cреднее арифметическое округленно равно 4