Программа:
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), но в боевых действиях они так и не применялись.
Объяснение:
Как то так
