Объяснение:
1. Б
2. В
3. Б
4. Не понимаю сути вопроса
5. Б
6. Анализ, обобщение, синтез
7. В
8. В
9. Б
10. А
11. Б
12. Б
13. Г
14. Умозаключение, понятие, суждение
15. А
16. Б
17. А
18. Переместить, копировать, удалить, открыть (кодировать не уверен)
19. В
20. 1, 3, 5, 8 (7 не уверен)
21. Б
22. А
23. Монитор, колонки, принтер
24. Графический планшет, клавиатура, сканер, микрофон
25. Кнопка "Пуск", панель быстрого запуска, панель задач, флажок, значки (ярлыки) (текстовое поле ?)
P.S. Заранее извини, если что-то неправильно.
begin
var arr := new integer[10]; // Объявляем массив состоящий из 10 целых чисел
// Заполняем массив случайными числами в диапазоне от 0 до 10
for var i := 0 to arr.High do
arr[i] := Random(0, 10);
var sum := 0; // Объявляем переменную sum для хранения суммы всех чисел массива
// В цикле берем каждый элемент и суммируем в sum
forEach var x in arr do
sum += x;
// Делим всю сумму (sum) на 10 (длину массива) и получаем нужное значение
var average := sum / 10;
Println('Среднее значение:', average);
end.
выставляем некий индикатор = 0
идем по массиву
если находим элемент больше 7, выставляем индикатор = 1, прекращаем просмотр массива, выводим номер элемента.
Если дошли до последнего элемента и все меньше 7 (индикатор = 0), выводим соответствующее сообщение.
Прога:
program test1;
var
M1: array [1..60] of integer;
ind, i: integer;
begin
ind :=0;
i := 1;
repeat
if M1[i]>7 then
begin
writeln(i);
ind := 1;
i := 60;
end;
inc(i);
if ((i>60) and (ind=0))
begin
writeln('массив не содержит элементов, больших 7');
ind := 1;
end;
until(ind=1);
end;