56

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

platinumx 12 апреля 2023

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

категория: информатика

38

Program Zadacha; Var a: Array [1… 8] of Integer; i, b, c: Integer; BeginRandomize; For i: =1 To 8 Doa[i]: =Random (11); b: =0; c: =0; For i: =1 To 8 DoBeginIf a[i] Mod 2=1 Thenb: =b+1Elsec: =c+a[i]; End; WriteLn ('Количество нечетных элементов массива равно ', b); WriteLn ('Сумма четных элементов массива равна ', c); ReadLn; End.

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

Знаете другой ответ?
Другие вопросы по информатике

ПОПУЛЯРНОЕ
Есть интересный вопрос? Задайте его нашему сообществу, у нас наверняка найдется ответ!
Делитесь опытом и знаниями, зарабатывайте награды и репутацию, заводите новых интересных друзей!
Задавайте интересные вопросы, давайте качественные ответы и зарабатывайте деньги. Подробнее...