Задание:
Составте програму, которая заролняет массив a[1… 10] случайными целыми числами в диапозоне от 1 до 10 и находит сумму элементов с четными значениями иколичество элеменнтов с нечетными значениями
Решение:
Совсем в информатике не шаришь? … Ладно, лови решениеProgram z; vara: array [1… 10] of integer; i,s,k: integer; beginwriteln ('Ishodniy massiv'); for i: =1 to 10 dobegina[i]: =random (9)+1; writeln ('a[',i,']=',a[i]); end; for i: =1 to 10 dobeginif a[i]mod 2=0 thens: =s+a[i]else k: =k+1; end; writeln ('Summa=',s); writeln ('Kolichestvo=',k); end.
Знаете другой ответ?