Предмет: Информатика,
автор: chebureg
Информатика,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
Приложения:
![](https://files.topotvet.com/i/dcf/dcf09e4eeb7f2d3fa92398102db27df6.jpg)
Ответы
Автор ответа:
5
Ответ:
Суть программы следующая: у нас есть массив Dat, состоящий из 10 элементов. Значения каждого элемента нам уже известно, ведь их ввели прямо в коде программы. И так, цикл for k:=1 to 10 do проверяет, больше ли текущий элемент массива, чем 12, если да, то переменная m увеличивается на 1
От Dat[1] до Dat[10] больше 12 всего 7 элементов. Значит на экран выведется 7.
Ответ: 7.
Объяснение:
Похожие вопросы
Предмет: Математика,
автор: nastyanote42
Предмет: Українська мова,
автор: kocmananatoliy
Предмет: Математика,
автор: B9nderochka
Предмет: Биология,
автор: Hollanded
Предмет: Литература,
автор: Theempirecat