В отделе работает N сотрудников. Определить средний возраст сотрудников отдела. ( надо написать программу, помогите пожалуйста!)
5-9 класс
|
var s,n,i,k:integer;
begin
readln(n);
for i:=1 to n do begin
readln(k);
s:=s+k;
end;
k:=s div n;
writeln(k);
end.
Другие вопросы из категории
=...
42(десяточка в конце)=...
помогите заранее спасибо
положил его в карман куртки. Петина мама случайно постирала куртку
вместе с запиской. После стирки Петя обнаружил в кармане 4 обрывка с
фрагментами IP-адреса. Эти фрагменты обозначены буквами А .9.13 ;Б 250 ;
В 17 ; Г 2.200
в ответе укажите последовательность букв, обозначающих фрагменты, в порядке, соответствующем IP-адресу
сканеров, сотовых телефонов, принтеров, фотоаппаратов?
1. Ада Августа Лавлейс
2. Алан Тьюринг
3.Блез Паскаль
4.Чарльз Беббидж
должно быть равное количество карточек). Потом ведущий выбирает произвольно одну из двух шапок и вытаскивает из нее случайную карточку. Если она синяя – выиграл ведущий, если красная – выиграл игрок. Как игроку нужно разложить эти 100 карточек, чтобы шансы на выигрыш были максимальны?
Читайте также
на сколько зарплата самого высокооплачиваемого из них отличается от самого низкооплачиваемого.
типо по такой же системе которую щас напишу! program Maximum; i,n,max:integen; begin writeln ( 'введи элементы массива для поиска максимума'); for i:=1 to 10 do begin write ('a [', i ,']=');readln (a [ i ] ) ;end; max:=a[1]; for i = 2 to 10 do if a [ i ] > max then begin max:=a [ i ] ; n:= i ; end; writeln ('найти наибольший элемент ',max ,' под номером ', n); вот наподобие этого примера нужно построить мою задачу! в заданной последовательности целых чисел определите сумму элементов кратных 10. Помогите пожалуйста!!!
арифметического полученных значений.
2. За весну Обломов похудел на p1 кг, за лето поправился на p2 кг, за осень похудел на p3 кг, за зиму поправился на p4 кг. Написать программу, определяющую, похудел или поправился за год Обломов.
3. Написать программу, которая определяет, является ли целое число четным двузначным числом.
4. Даны коэффициенты квадратного уравнения. Написать программу, определяющую его корни
положительных чисел, которые вводятся с клавиатуры. 2. Написать программу, которая определяет максимальное число из введенной с клавиатуры последовательности положительных чисел (длина последовательности неограниченна).
else), подскажите хотя бы алгоритм решения!