Алёнка290613
07.07.2020 04:17

1. Выступление каждого спортсмена независимо оценивается несколькими судьями, затем из всей совокупности оценок удаляются наиболее высокая и наиболее низкая, а для оставшихся оценок вычисляется среднее арифметическое, которое и идет в зачет спортсмену. Если наиболее высокую оценку выставили несколько судей, то из совокупности оценок удаляется только одна такая оценка; аналогично поступают и с наиболее низкими оценками. Известны оценки, выставленные восемью судьями одному из участников соревнований. Составить программу для расчета оценки, которая пойдет в зачет этому спортсмену. 2. Известно количество осадков (в мм), выпадавших в Москве каждый год в течение первых 50 лет столетия. Вычислить среднее количество осадков и отклонение от среднего для каждого года.
3. Дан массив целых чисел. Выяснить:
а) верно ли, что сумма элементов, которые больше 20, превышает 100;
б) верно ли, что сумма элементов, которые меньше 50, есть четное число.
4. Известны данные о количестве осадков, выпавших за каждый день февраля. Верно ли, что по четным числам выпадало больше осадков, чем по нечетным?
5. Дан массив вещественных чисел. Выяснить:
а) верно ли, что количество положительных элементов не превышает 5;
б) верно ли, что количество элементов, которые не больше 50, кратно четырем.
6. Известны данные о количестве осадков, выпавших за каждый день марта. Верно ли, что осадков не было 10 дней в месяц?
7. Дан массив вещественных чисел. Выяснить:
а) верно ли, что максимальный элемент превышает минимальный не более чем на 25;
б) верно ли, что минимальный элемент меньше максимального более чем в два раза?
8. Известна масса каждого человека из группы. Верно ли, что масса самого тяжелого из них превышает массу самого легкого более чем в два раза?
9. Дан массив. Определить количество элементов, больших суммы всех элементов массива, и напечатать их номера.
10. Дан массив. Найти количество элементов, значение которых больше среднего арифметического минимального и максимального элементов массива, и напечатать их номера.
11. Рост 25 учеников класса представлен в виде массива. Определить количество учеников, рост которых больше среднего роста по классу.
12. В массиве записана информация о стоимости 20 видов товара. Определить, сколько видов товара имеют стоимость меньшую, чем средняя стоимость всех видов товара.
13. В массиве записаны оценки по информатике 22 учеников класса. Определить количество учеников, оценка которых меньше средней оценки по классу, и вывести номера элементов массива, соответствующих таким ученикам.

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
BlackStar14
10.04.2020 20:37
Program factors;
var
num, sum : word;
st : string;
j : byte;

function fact(a : byte) : word;
var
res : word;
i : byte;
begin
res:=1;
for i:=1 to a do
res := res*i;

writeln(a, '!=', res);

fact := res;
end;

function vl(a : char) : byte;
var
res : byte;
begin
val(a, res);
vl := res;
end;

begin
write('Введите число: ');
readln (num);
str(num, st);
sum:=0;
for j:=1 to length(st) do
sum := sum + fact(vl(st[j]));
writeln('Сумма факториалов цифр числа равна: ', sum);
end.

Тестовый прогон программы:

Введите число: 125
1!=1
2!=2
5!=120
Сумма факториалов цифр числа равна: 123
0,0(0 оценок)
Ответ:
dimon2ru
12.04.2020 19:09
1)
var a, b, c: integer; sr:real;
begin
write('a = '); readln(a);
write('b = '); readln(b);
write('c = '); readln(c);
sr:=(a+b+c)/3;
writeln('Среднее арифметическое = ',sr);
end.

Пример:
a = 5
b = 2
c = 8
Среднее арифметическое = 5

2)
var a, b, c, s : integer; 
begin
write('a = '); readln(a);
write('b = '); readln(b);
write('c = '); readln(c);
s:=0;
if a mod 2 = 0 then s:=s+a;
if b mod 2 = 0 then s:=s+b;
if c mod 2 = 0 then s:=s+c;
writeln('Сумма четных чисел = ',s);
end.

Пример:
a = 8
b = 5
c = 2
Сумма четных чисел = 10

3)
var a, b, c, max, min : integer; 
begin
write('a = '); readln(a);
write('b = '); readln(b);
write('c = '); readln(c);
if a>b then max:=a else max:=b;
if c>max then max:=c;
if a<b then min:=a else min:=b;
if c<min then min:=c;
writeln('max = ',max,' min = ',min,'  Среднее = ',(max+min)/2);
end.

Пример:
a = 5
b = 2
c = 8
max = 8 min = 2  Среднее = 5
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота