toha1289 T toha1289 Регистрация 25 Дек 2013 Сообщения 86 Репутация 0 Спасибо 0 Монет 0 8 Дек 2016 #1 от 1 до 10 и выводит на экран количество элементов счётными значениями и сумму элементов массива с нечётными значениями
от 1 до 10 и выводит на экран количество элементов счётными значениями и сумму элементов массива с нечётными значениями
Boroda B Boroda Регистрация 13 Окт 2013 Сообщения 78 Репутация 0 Спасибо 0 Монет 0 8 Дек 2016 #2 . Позитивный голос 0
12343212145 1 12343212145 Регистрация 15 Сен 2013 Сообщения 93 Репутация -3 Спасибо 0 Монет 0 8 Дек 2016 #3 count:=0; sum:=0; for i:=1 to 8 do begin a:=1+random(1); if not odd(a) then inc(count) else sum:=sum+a; end; Язык угадал, Штирлиц?) Позитивный голос 0
count:=0; sum:=0; for i:=1 to 8 do begin a:=1+random(1); if not odd(a) then inc(count) else sum:=sum+a; end; Язык угадал, Штирлиц?)