Опубликовано 6 лет назад по предмету
Информатика
от 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
Войдите или зарегистрируйтесь, чтобы добавить ответ или свой вопрос на сайт