Информатика,vvar k,m: integerdat: array() of integerbegindat(1): - вопрос №11221546940 от Liana250202 31.03.2021 05:12

Question

Информатика: Информатика,vvar k,m: integerdat: array() of integerbegindat(1): =12dat(2): =17dat(3): =17dat(4): =15dat(5): =14dat(6): = 12dat(7): =10dat(8): =13dat(9): =14dat(10): =15m: =0for k: = 1 to 10 doif dat(k) 12 then m: =m+1; writeln (m)end​

Liana250202 · Answer

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

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

ответ: 7.

Объяснение:

Информатика,vvar k,m: integerdat: array() of integerbegindat(1): =12dat(2): =17dat(3): =17dat(4): =15dat(5): =14dat(6): = 12dat(7): =10dat(8): =13dat(9): =14dat(10): =15m: =0for k: = 1 to 10 doif dat(k) > 12 then m: =m+1; writeln (m)end​

Информатика,vvar k,m: integerdat: array() of integerbegindat(1): =12dat(2): =17dat(3): =17dat(4): =15dat(5): =14dat(6): = 12dat(7): =10dat(8): =13dat(9): =14dat(10): =15m: =0for k: = 1 to 10 doif dat(k) > 12 then m: =m+1; writeln (m)end