Программа:
Pascal:
var
arr: array of integer;
n, i, sum: integer;
begin
write('Количество учеников: '); readln(n);
SetLength(arr, n);
for i := 0 to n - 1 do begin
arr[i] := random(2, 5);
sum += arr[i];
end;
writeln('Оценки учеников в классе: ', arr);
writeln('Средняя оценка: ', sum/n);
end.
Для начала выделяем память массиву целых чисел, после - регистрируем переменные, которые будем использовать далее. Запрашиваем кол-во учеников (это и будет размерностью массива), устанавливаем длину массива - введённое число n. Циклом проходима по элементам массива, устанавливаем рандомное значение от 2 до 5 и суммируем элементы. В конце выводим сам массив и высчитываем среднюю оценку как среднее арифметическое чисел.
1 Тема) Когда появились первые боевые роботы?
В 1910 году, вдохновлённый успехами братьев Райт, молодой американский военный инженер из Огайо Чарльз Кеттеринг предложил использовать летательные аппараты без человека. По его замыслу управляемое часовым механизмом устройство в заданном месте должно было сбрасывать крылья и падать как бомба на врага. Получив финансирование армии США, он построил, и с переменным успехом испытал несколько устройств, получивших названия The Kattering Aerial Torpedo, Kettering Bug (или просто Bug), но в боевых действиях они так и не применялись.
Объяснение:
Как то так
кодирую
A=0
Г=1
И=2
Л=3
М=4
О=5
Р=6
Т==7
восьмеричная СС
требуется найти порядковый номер
ТТГО или 7715
5*8^0+1*8^1+7*8^2+7*8^3=4045
при этом учтем , что первой комбинации из 4 символов
по этой СС или 0000-соответствует первый порядковый номер, ходя в восьмеричной СС-это 0, то есть нумерация увеличивается на 1
поэтому порядковый номер искомой комбинации букв ТТГО будет 4045+1=4046