Var a: array[1..100] of integer; i, n: integer; sum, product, harmonic: real;
begin n := 50;
writeln('Данные массива:'); for i := 1 to n do begin a[i] := random(60); write(a[i], ' '); end; writeln();
{подсчет суммы и произведения и агригатов} sum := 0; product := 1; for i := 1 to n do if i mod 2 = 0 then sum := sum + a[i] else product := product * a[i]; writeln('sum = ', sum); writeln('product = ', product); end.