Составте програму, которая заролняет массив a[1…

Question

Составте програму, которая заролняет массив a[1… 10] случайными целыми числами в диапозоне от 1 до 10 и находит сумму элементов с четными значениями иколичество элеменнтов с нечетными значениями

Answer 1

37

corsair

20 марта 2023

Совсем в информатике не шаришь? … Ладно, лови решение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.

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: