40 за простую , , иформатика, дан целочисленный массив из 20 чисел. найти сумму и произведение элементов массива.

243

350

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

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

Murat20051

Информатика

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

Const n=15; var a: array[1..n] of integer; s,i: integer; p: real; begin randomize; writeln('массив a: '); for i: =1 to n do begin a[i]: =random(16); write(a[i]: 3); end; writeln; s: =0; p: =1; for i: =1 to n do begin s: =s+a[i]; p: =p*a[i]; end; writeln('s = ',s,' p = ',p); end. пример: массив a: 1 14 12 14 6 4 10 3 3 1 15 4 4 5 6 s = 102 p = 36578304000

Сумасшедшая55555

Информатика

4,5(96 оценок)

Var n,min,a: integer; begin readln(n); min: =30000; for n: =n downto 1 do begin read(a); if (not odd(a)) and (a< min) then min: =a; end; writeln(min); end.