41

Создать массив B 7 ЭЛЕМЕНТОВ В ИНТЕРВАЛЕ ОТ 0 ДО 10, ЗАМЕНИТЬ ВСЕ ЭЛЕМЕНТЫ КРАТНЫЕ 3…

02 марта 2023

Создать массив B 7 ЭЛЕМЕНТОВ В ИНТЕРВАЛЕ ОТ 0 ДО 10, ЗАМЕНИТЬ ВСЕ ЭЛЕМЕНТЫ КРАТНЫЕ 3 НА СУММУ ЭЛЕМЕНТОВМАССИВА.

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



78

var a: array[1… 7]of integer; i,s: integer; beginfor i: =1 to 7 do begin a[i]: =random (9)+1; s: =s+a[i]; end; for i: =1 to 7 do write (a[i],'); writeln; for i: =1 to 7 do if a[i] mod 3=0 then a[i]: =s; for i: =1 to 7 do write (a[i],'); end.

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


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