Помогите написать программу пожалуйста. Дан одномерный массив… составить программу, которая находит произведение элементов, которые кратны 3 и не кратны 9
Ответы:
20-01-2016 19:18
var a:array [1..10] of integer; I,s:integer; begin randomize; s:=1; for I:=1 to 10 do begin a[I]:=random(100); if (a[I] mod 3 =0)and(a[I] mod 9<>0) then s:=s*a[I]; write(a[I]:4); end; writeln; writeln(s); end.
⭐⭐⭐⭐⭐ Лучший ответ на вопрос «Помогите написать программу пожалуйста. Дан одномерный массив… составить программу, которая находит произведение элементов, которые кратны 3 и не кратны 9» от пользователя Милада Гребёнка в разделе Экономика. Задавайте вопросы и делитесь своими знаниями.
Открой этот вопрос на телефоне - включи камеру и наведи на QR-код!