Информатика,Vvar k,m:integerDat:array(1...10) of...

0 голосов
14 просмотров

Информатика,Vvar k,m:integerDat:array(1...10) 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​


image

Информатика (12 баллов) | 14 просмотров
Дан 1 ответ
0 голосов

Ответ:

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

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

Ответ: 7.

Объяснение:

(113 баллов)