Информатика,Vvar k,m:integer
Dat:array(1...10) of integer
begin
Dat(1):=12
Dat(2):=17
Dat(3):=17
Dat(4):=15
Dat(5):=14
Dat(6):= 12
Dat(7):=10
Dat(8):=13
Dat(9):=14
Dat(10):=15
m:=0
for k:= 1 to 10 do
if Dat(k) >12 then
m:=m+1;
writeln (m)
end​

Ответ:

Суть программы следующая: у нас есть массив Dat, состоящий из 10 элементов. Значения каждого элемента нам уже известно, ведь их ввели прямо в коде программы. И так, цикл for k:=1 to 10 do проверяет, больше ли текущий элемент массива, чем 12, если да, то переменная m увеличивается на 1

От Dat[1] до Dat[10] больше 12 всего 7 элементов. Значит на экран выведется 7.

Ответ: 7.

Объяснение: