40

Массив А[1… 20] заполнен случайными числами [0; 10]. Найти сумму элементов с…

28 февраля 2023

Массив А[1… 20] заполнен случайными числами [0; 10]. Найти сумму элементов с четныминомерами

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



36

program pr1; varm: array[1… 100] of integer; i,sum: integer; beginrandomize; for i: =1 to 20 dom[i]: =random (10); for i: =1 to 20 dobeginwrite (m[i],'); if i mod 2=0 then sum: =sum+m[i]; end; writeln ('); writeln (sum); readln; end.

Знаете ответ?


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