1. составьте программу вычисления в массиве с(15) произведения элементов ,кратных 9 2.составьте программу вычисления в массиве b(25) среднего арифметического с нечетными числами

239

424

Посмотреть ответы 2

Ответы на вопрос:

aleksandr250804

Информатика

4,4(63 оценок)

1) var c: array [1..15] of integer; i,n: integer; begin n: =1; randomize ; for i: =1 to 15 do c[i]: =random(50); for i: =1 to 15 do write(c[i],' '); for i: =1 to 15 do if c[i] mod 9=0 then n: =c[i]*n; writeln; for i: =1 to 15 do write(c[i],' '); writeln; writeln(n); end.2)varb: array [1..25] of integer; i,,j: integer; cr: real; beginrandomize; for i: =1 to 25 dob[i]: =random(50); for i: =1 to 25 dowrite(b[i],' '); for i: =1 to 25 doif b[i] mod2< > 0 thenbegin cr: =cr+b[i]; j: =j+1; end; cr: =cr/j; writeln; write(cr); end. забудьте сказать