Vetal V Vetal Регистрация 12 Авг 2013 Сообщения 88 Репутация 0 Спасибо 0 Монет 0 8 Дек 2016 #1 которая заполняет массив [1..8] целыми числами в диапазоне от 1 до 10 и выводит сумму элементов с нечётными числами.
которая заполняет массив [1..8] целыми числами в диапазоне от 1 до 10 и выводит сумму элементов с нечётными числами.
Armoshkaa A Armoshkaa Регистрация 18 Апр 2013 Сообщения 80 Репутация -3 Спасибо 0 Монет 0 8 Дек 2016 #2 s:=0; for i:=1 to 8 do begin a:=random(10)+1; write(a:3); if odd(a) then s:=s + a ; end; Позитивный голос 0