или кратко:
beginvar Rs := ReadArrInteger(3);Println('послед:', Rs.Sum);Println('парал:', 1/Rs.Sum(r->1/r));end.Пример работы:
или кратко:
beginvar Rs := ReadArrInteger(3);Println('послед:', Rs.Sum);Println('парал:', 1/Rs.Sum(r->1/r));end.Пример работы:
Код ниже
Объяснение:
program evenNumbers;
const n = 23;
var arr: array[1..n] of integer;
i: integer;
begin
randomize;
for i := 1 to n do begin
arr[i] := Random(20);
if (arr[i] mod 2 = 0) then writeln(arr[i])
end;
end.