М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
djuraev488
djuraev488
15.04.2022 09:07 •  Информатика

Склавиатуры вводятся n чисел .определить среднее значение положительных чисел

👇
Ответ:
UlianaModerator
UlianaModerator
15.04.2022
PascalABC.NET 3.2:

Begin
Write('Sr = ',ReadSeqReal('Введите n чисел:',ReadLnInteger('n = ')).Where(x->x>0).Average)
End.

Turbo/Free/ABC:

Var
   A,S:real;
   n,k:integer;
Begin
Write('n = ');ReadLn(n);
Write('Введите n чисел: ');
S:=0;
k:=0;
For n:= 1 to n do
    Begin
    Read(A);
    if A > 0 then
       Begin
       S:=S+A;
       k:=k+1
       End
    End;
WriteLn('Sr = ',S/k);
End.
4,8(10 оценок)
Открыть все ответы
Ответ:
kuliksvera
kuliksvera
15.04.2022
Число кратно 10 если оно заканчивается 0 В данном примере важна последняя цифра. Последняя цифра суммы чисел зависит только от суммы последних цифр. Последняя цифра произведения (Степени числа) зависит только от произведения (степени цифры) чисел 91^10=...1*...1*...*...1 (10 раз)=..1 --последняя цифра числа 1 42^10=..2*2*..*...2 (10 раз)=...4*...*...4(5 раз)=..6*..6*..4=...4 - последняя цифра 4 85^10=..5*..5*...*...5(10 раз)=...5 - последняя цифра 5 значит последняя цифра данного числа равна ..1+..4-...5=..0 -- последняя цифра 0, а значит оно кратно 10. Доказано
4,4(37 оценок)
Ответ:
ffffffffff444
ffffffffff444
15.04.2022
Program Project1;//кількість днів я взяв за N а площу за ploschad    var A,B,Z,S,N, ploschad:real;      K,D:integer;begin  writeln('vvedit kilkist kombainov tupy K ta proizvoditelnost A');  readln(K,A);    writeln('vvedit kilkist kombainov tupy D ta proizvoditelnost B');  readln(D,B);  writeln('vvedit prodolzitelnost robochego dnja Z ta vrema tex obslyzivannja S');  readln(Z,S);  writeln('vvedit kolichestvo dney N');  readln(N);     ploschad:=(k*a+b*d)*(z-s)*n;     writeln('ploschad=',ploschad:8:2);     readln;
end.
4,5(43 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ