Составить программу вычисления в одномерном массиве с произведения четных и положительных элементов и сумму элементов меньших 6

193

352

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

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

Милаха7884433

Информатика

4,7(88 оценок)

Var c: array [1..10] of integer; i, even, positive, sumlesssix: integer; begin randomize; writeln ('рандомный массив'); for i: =1 to 10 do begin c[i]: = random(20)-10; write (c[i],' '); end; {for} writeln; writeln('произведение четных чисел'); even: =1; for i: =1 to 10 do if c[i] mod 2 = 0 then even: = even*c[i]; write(even,' '); writeln; writeln('произведение положительных чисел'); positive: =1; for i: =1 to 10 do if c[i] > 0 then positive: = positive*c[i]; write(positive,' '); writeln; writeln('сумма элементов меньших 6'); positive: =1; for i: =1 to 10 do if c[i] < 6 then sumlesssix: = sumlesssix+c[i]; write(sumlesssix,' '); end.

masasedal

Информатика

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

Pascalabc.net 3.3.5, сборка 1659 от 09.04.2018 внимание! если программа не работает, обновите версию! begin var (so,se): =(0,0); readseqintegerwhile(t-> t> 0).foreach(t-> if t.isodd then so+=t else se+=t); write('сумма четных ',se,' '); if se> so then write('> ') else if se=so then write('=') else write('< '); writeln(' суммы нечетных ',so) end. пример 3245 6774 23241 5645 967 32234 123 65 2134 0 сумма четных 41142 > суммы нечетных 33286 программа считывает данные, пока они являются натуральными числами.